[Rt-commit] r19414 - rt/3.8/trunk/share/html/Admin/Groups

[elacour at bestpractical.com]

Author: elacour
Date: Mon May  4 06:01:13 2009
New Revision: 19414

Modified:
   rt/3.8/trunk/share/html/Admin/Groups/Members.html

Log:
In group member edit page, sort current members in the same way new members are
sorted.

Modified: rt/3.8/trunk/share/html/Admin/Groups/Members.html
==============================================================================
--- rt/3.8/trunk/share/html/Admin/Groups/Members.html	(original)
+++ rt/3.8/trunk/share/html/Admin/Groups/Members.html	Mon May  4 06:01:13 2009
@@ -74,12 +74,17 @@
 % } else {
 <&|/l&>Users</&>
 % my $Users = $Group->UserMembersObj( Recursively => 0 );
-% $Users->OrderBy( FIELD => $UserOrderBy, ORDER => $UserOrder );
+<%perl>
+my @users = sort { lc($a->[0]) cmp lc($b->[0]) }
+            map { [$m->scomp("/Elements/ShowUser", User => $_), $_] }
+            @{ $Users->ItemsArrayRef };
+</%perl>
 <ul>
-% while ( my $user = $Users->Next ) {
+% for (@users) {
+% my ($rendered, $user) = @$_;
 % $UsersSeen{ $user->id } = 1 if $SkipSeenUsers;
 <li><input type="checkbox" class="checkbox" name="DeleteMember-<% $user->PrincipalObj->Id %>" value="1" />
-<& '/Elements/ShowUser', User => $user &></li>
+<% $rendered |n%></li>
 % }
 </ul>
 <&|/l&>Groups</&>
@@ -149,8 +154,6 @@
 @AddMembersUsers  => ()
 @AddMembersGroups => ()
 $id => undef
-$UserOrderBy => 'Name'
-$UserOrder => 'ASC'
 $SkipSeenUsers => 1
 $SkipSeenGroups => 1
 </%ARGS>