| '.
+ ''.$realm.' | '.
'Import | '.
- 'Calculations |
|---|
';
- my $showf=0;
- foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
- 'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
- 'a','b','c','d','e','f','g','h','i','j','k','l','m',
- 'n','o','p','q','r','s','t','u','v','w','x','y','z') {
- $showf++;
- if ($showf<=$maxred) {
- $tabledata.='| ';
- } else {
- $tabledata.=' | ';
- }
- $tabledata.="$_ | ";
- }
- $tabledata.='
'.&rown($safeeval,'-').&rown($safeeval,0);
- } else { $tabledata=''; }
-
+ my $showf=0;
+ foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
+ 'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
+ 'a','b','c','d','e','f','g','h','i','j','k','l','m',
+ 'n','o','p','q','r','s','t','u','v','w','x','y','z') {
+ $showf++;
+ if ($showf<=$maxred) {
+ $tabledata.='| ';
+ } else {
+ $tabledata.=' | ';
+ }
+ $tabledata.="$_ | ";
+ }
+ $tabledata.=''.&rown($safeeval,'-').&rown($safeeval,0);
+ }
$r->print($tabledata);
-
+ #
+ # Prepare to output rows
my $row;
my $maxrow=&getmaxrow($safeeval);
-
+ #
my @sortby=();
my @sortidx=();
for ($row=1;$row<=$maxrow;$row++) {
- $sortby[$row-1]=$safeeval->reval('$f{"A'.$row.'"}');
- $sortidx[$row-1]=$row-1;
+ push (@sortby, $safeeval->reval('$f{"A'.$row.'"}'));
+ push (@sortidx, $row-1);
}
@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';
- }
-
+ #
+ # Determine the type of child spreadsheets
+ my $what='Student';
+ if ($sheetdata->{'sheettype'} eq 'assesscalc') {
+ $what='Item';
+ } elsif ($sheetdata->{'sheettype'} eq 'studentcalc') {
+ $what='Assessment';
+ }
+ #
+ # Loop through the rows and output them one at a time
my $n=0;
for ($row=0;$row<$maxrow;$row++) {
my $thisrow=&rown($safeeval,$sortidx[$row]+1);
@@ -1324,9 +1329,10 @@ sub outsheet {
$r->print("
\n