version 1.125, 2005/10/04 18:27:32
|
version 1.126, 2005/12/13 16:25:32
|
Line 268 sub PrepareClasslist {
|
Line 268 sub PrepareClasslist {
|
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 { $a->{$sortby} cmp $b->{$sortby} || |
$a->{'fullname'} cmp $b->{'fullname'} } @Students; |
lc($a->{'fullname'}) cmp lc($b->{'fullname'}) || |
|
lc($a->{'username'}) cmp lc($b->{'username'}) } @Students; |
@Students = @TmpStudents; |
@Students = @TmpStudents; |
# |
# |
# Now deal with that current student thing.... |
# Now deal with that current student thing.... |