version 1.52, 2002/10/21 00:19:39
|
version 1.54, 2002/11/18 20:39:46
|
Line 245 sub SortStudents {
|
Line 245 sub SortStudents {
|
my $sortBy = ''; |
my $sortBy = ''; |
if(defined($cache->{'sort'})) { |
if(defined($cache->{'sort'})) { |
$sortBy = ':'.$cache->{'sort'}; |
$sortBy = ':'.$cache->{'sort'}; |
|
} else { |
|
$sortBy = ':fullname'; |
} |
} |
my @order = sort { $cache->{$a.$sortBy} cmp $cache->{$b.$sortBy} || |
my @order = sort { lc($cache->{$a.$sortBy}) cmp lc($cache->{$b.$sortBy}) || |
$cache->{$a.':fullname'} cmp $cache->{$b.':fullname'} } |
lc($cache->{$a.':fullname'}) cmp lc($cache->{$b.':fullname'}) } |
@sorted1Students; |
@sorted1Students; |
|
|
return \@order; |
return \@order; |
Line 510 sub BuildStatistics {
|
Line 512 sub BuildStatistics {
|
my @headings=('Full Name', 'Section', 'PID', 'Domain', 'User Name', |
my @headings=('Full Name', 'Section', 'PID', 'Domain', 'User Name', |
'Last Updated'); |
'Last Updated'); |
my $spacing = ' '; |
my $spacing = ' '; |
# my $spacing = ' '; |
|
|
|
my %reports = ('classlist' => 'Class list', |
my %reports = ('classlist' => 'Class list', |
'problem_statistics' => 'Problem Statistics', |
'problem_statistics' => 'Problem Statistics', |