--- 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('
');
- 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(),