# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1340602918 -32400
# Node ID 2445a87742d0563285b2eff826710defec4aaa49
# Parent  e2aa6180c2c6dd144ce7bf0910d7f8a84ced373c
Gather the current group-member at the beginning of the user list.

diff -r e2aa6180c2c6 -r 2445a87742d0 after5.rb
--- a/after5.rb	Mon Jun 25 14:30:54 2012 +0900
+++ b/after5.rb	Mon Jun 25 14:41:58 2012 +0900
@@ -4,7 +4,7 @@
 # Associative Scheduling Table - after5
 # (C)2003, 2004, 2006, 2008, 2012 by HIROSE Yuuji [yuuji<at>gentei.org]
 # $Id: after5.rb,v 1.19 2012/04/01 11:52:25 yuuji Exp yuuji $
-# Last modified Mon Jun 25 14:29:40 2012 on firestorm
+# Last modified Mon Jun 25 14:40:45 2012 on firestorm
 # See http://www.gentei.org/~yuuji/software/after5/
 # このスクリプトはEUCで保存してください。
 $hgid = <<_HGID_.split[1..-2].join(" ")
@@ -3222,6 +3222,10 @@
     @O.print @H.elementln("form", actionmethod){
       @H.hidden('group', group) + "\n" + \
       if group
+        # Non symmetric job: Move the current users above.
+        gmemlist = userlist.select{|u| @sc.ismember(u, group)}
+        userlist = (gmemlist + userlist).uniq
+        # In this context, should return simply "".
 	""
       else
 	# new group creation