'.
$realm.' | '.
'';
+ $tabledata.=' |
'.&rown($safeeval,'-').&rown($safeeval,0);
+ } else { $tabledata=''; }
+
+ $r->print($tabledata);
+
my $row;
my $maxrow=&getmaxrow($safeeval);
- $tabledata.=&rown($safeeval,'-');
- $r->print($tabledata);
- for ($row=0;$row<=$maxrow;$row++) {
- $r->print(&rown($safeeval,$row));
+
+ my @sortby=();
+ my @sortidx=();
+ for ($row=1;$row<=$maxrow;$row++) {
+ $sortby[$row-1]=$safeeval->reval('$f{"A'.$row.'"}');
+ $sortidx[$row-1]=$row-1;
}
- $r->print('
');
+ @sortidx=sort { $sortby[$a] cmp $sortby[$b]; } @sortidx;
+
+ my $what='Student';
+ if (&gettype($safeeval) eq 'assesscalc') {
+ $what='Item';
+ } elsif (&gettype($safeeval) eq 'studentcalc') {
+ $what='Assessment';
+ }
+
+ my $n=0;
+ for ($row=0;$row<$maxrow;$row++) {
+ my $thisrow=&rown($safeeval,$sortidx[$row]+1);
+ if ($thisrow) {
+ if (($n/25==int($n/25)) && (!$ENV{'form.showcsv'})) {
+ $r->print("