--- loncom/interface/lonmsg.pm	2005/02/02 21:35:16	1.133
+++ loncom/interface/lonmsg.pm	2005/02/17 03:36:05	1.134
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.133 2005/02/02 21:35:16 www Exp $
+# $Id: lonmsg.pm,v 1.134 2005/02/17 03:36:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -693,7 +693,15 @@ ENDDISHEADER
         }
     }
     $r->print('</table><table>');
-    while (my ($student,$info) = each(%$classlist)) {
+    my $sort = sub {
+	my $aname=lc($classlist->{$a}[&Apache::loncoursedata::CL_FULLNAME()]);
+	if (!$aname) { $aname=$a; }
+	my $bname=lc($classlist->{$b}[&Apache::loncoursedata::CL_FULLNAME()]);
+	if (!$bname) { $bname=$b; }
+	return $aname cmp $bname;
+    };
+    foreach my $student (sort $sort (keys(%{$classlist}))) {
+	my $info=$classlist->{$student};
         my ($sname,$sdom,$status,$fullname,$section) =
             (@{$info}[&Apache::loncoursedata::CL_SNAME(),
                       &Apache::loncoursedata::CL_SDOM(),