--- loncom/interface/loncreateuser.pm	2003/07/25 01:18:04	1.66
+++ loncom/interface/loncreateuser.pm	2003/09/17 17:30:10	1.67
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.66 2003/07/25 01:18:04 bowersj2 Exp $
+# $Id: loncreateuser.pm,v 1.67 2003/09/17 17:30:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -310,7 +310,10 @@ END
 <table border=2>
 <tr><th>Revoke</th><th>Delete</th><th>Role</th><th>Extent</th><th>Start</th><th>End</th>
 END
-	   foreach my $area (sort keys(%rolesdump)) {
+	   foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);
+				    my $b1=join('_',(split('_',$b))[1,0]);
+				    return $a1 cmp $b1;
+				} keys(%rolesdump)) {
                next if ($area =~ /^rolesdef/);
                my $role = $rolesdump{$area};
                my $thisrole=$area;