--- 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.='</tr>';
     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).'<br>';
+#    @linklst=sort { $sortprt[$a] cmp $sortprt[$b]; } @linklst; 
+#    print join(',',@linklst).'<br>';
+
     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('</tr>');
        }
-         $n++;
-         $r->print($rowprt[$row]);
+       $n++;
+       $r->print($thisrow);
       }
     }
     $r->print('</table>');
-    undef @rowprt;
 }
 
 #