version 1.51, 2002/09/16 20:09:46
|
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 509 sub BuildStatistics {
|
Line 511 sub BuildStatistics {
|
'updateTime'); |
'updateTime'); |
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 %reports = ('classlist' => 'Class list', |
my %reports = ('classlist' => 'Class list', |
'problem_statistics' => 'Problem Statistics', |
'problem_statistics' => 'Problem Statistics', |
'student_assessment' => 'Student Assessment', |
'student_assessment' => 'Student Assessment', |