version 1.133, 2005/02/02 21:35:16
|
version 1.134, 2005/02/17 03:36:05
|
Line 693 ENDDISHEADER
|
Line 693 ENDDISHEADER
|
} |
} |
} |
} |
$r->print('</table><table>'); |
$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) = |
my ($sname,$sdom,$status,$fullname,$section) = |
(@{$info}[&Apache::loncoursedata::CL_SNAME(), |
(@{$info}[&Apache::loncoursedata::CL_SNAME(), |
&Apache::loncoursedata::CL_SDOM(), |
&Apache::loncoursedata::CL_SDOM(), |