version 1.126, 2005/12/13 16:25:32
|
version 1.127, 2005/12/13 16:32:22
|
Line 267 sub PrepareClasslist {
|
Line 267 sub PrepareClasslist {
|
# Sort the Students |
# Sort the Students |
my $sortby = 'fullname'; |
my $sortby = 'fullname'; |
$sortby = $env{'form.sort'} if (exists($env{'form.sort'})); |
$sortby = $env{'form.sort'} if (exists($env{'form.sort'})); |
my @TmpStudents = sort { $a->{$sortby} cmp $b->{$sortby} || |
my @TmpStudents = sort { lc($a->{$sortby}) cmp lc($b->{$sortby}) || |
lc($a->{'fullname'}) cmp lc($b->{'fullname'}) || |
lc($a->{'fullname'}) cmp lc($b->{'fullname'}) || |
lc($a->{'username'}) cmp lc($b->{'username'}) } @Students; |
lc($a->{'username'}) cmp lc($b->{'username'}) } @Students; |
@Students = @TmpStudents; |
@Students = @TmpStudents; |