--- loncom/interface/lonpickstudent.pm	2003/03/28 01:53:55	1.4
+++ loncom/interface/lonpickstudent.pm	2003/05/10 23:01:56	1.5
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a student from the classlist
 #
-# $Id: lonpickstudent.pm,v 1.4 2003/03/28 01:53:55 www Exp $
+# $Id: lonpickstudent.pm,v 1.5 2003/05/10 23:01:56 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -92,7 +92,7 @@ ENDSCRIPT
     my %coursepersonnel=
        &Apache::lonnet::get_course_adv_roles();
     $r->print('<table border="2">');
-    foreach my $role (keys %coursepersonnel) {
+    foreach my $role (sort keys %coursepersonnel) {
        foreach (split(/\,/,$coursepersonnel{$role})) {
 	   my ($puname,$pudom)=split(/\:/,$_);
 	   $r->print('<tr><td>'.