--- loncom/interface/Attic/lonspreadsheet.pm 2001/09/13 15:55:40 1.63
+++ loncom/interface/Attic/lonspreadsheet.pm 2001/09/14 00:16:02 1.64
@@ -760,16 +760,19 @@ sub outsheet {
$tabledata.='';
my $row;
my $maxrow=&getmaxrow($safeeval);
- $tabledata.=&rown($safeeval,'-');
+ $tabledata.=&rown($safeeval,'-').&rown($safeeval,0);
$r->print($tabledata);
- my @rowprt=();
- for ($row=0;$row<=$maxrow;$row++) {
- $rowprt[$row]=&rown($safeeval,$row);
- }
+
+# $sortby=$safeeval->reval('$f{"A'.$n.'"}');
+# print join(',',@linklst).'
';
+# @linklst=sort { $sortprt[$a] cmp $sortprt[$b]; } @linklst;
+# print join(',',@linklst).'
';
+
my $n=0;
- for ($row=0;$row<=$maxrow;$row++) {
- if ($rowprt[$row]) {
- if ((($n-1)/25)==int(($n-1)/25)) {
+ for ($row=1;$row<=$maxrow;$row++) {
+ my $thisrow=&rown($safeeval,$row);
+ if ($thisrow) {
+ if ($n/25==int($n/25)) {
my $what='Student';
if (&gettype($safeeval) eq 'assesscalc') {
$what='Item';
@@ -786,12 +789,11 @@ sub outsheet {
'n','o','p','q','r','s','t','u','v','w','x','y','z');
$r->print('');
}
- $n++;
- $r->print($rowprt[$row]);
+ $n++;
+ $r->print($thisrow);
}
}
$r->print('');
- undef @rowprt;
}
#