loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.63, 2001/09/13 15:55:40	version 1.64, 2001/09/14 00:16:02
Line 760 sub outsheet {	Line 760 sub outsheet {
$tabledata.='</tr>';	$tabledata.='</tr>';
my $row;	my $row;
my $maxrow=&getmaxrow($safeeval);	my $maxrow=&getmaxrow($safeeval);
$tabledata.=&rown($safeeval,'-');	$tabledata.=&rown($safeeval,'-').&rown($safeeval,0);
$r->print($tabledata);	$r->print($tabledata);
my @rowprt=();
for ($row=0;$row<=$maxrow;$row++) {	# $sortby=$safeeval->reval('$f{"A'.$n.'"}');
$rowprt[$row]=&rown($safeeval,$row);	# print join(',',@linklst).'<br>';
}	# @linklst=sort { $sortprt[$a] cmp $sortprt[$b]; } @linklst;
	# print join(',',@linklst).'<br>';

my $n=0;	my $n=0;
for ($row=0;$row<=$maxrow;$row++) {	for ($row=1;$row<=$maxrow;$row++) {
if ($rowprt[$row]) {	my $thisrow=&rown($safeeval,$row);
if ((($n-1)/25)==int(($n-1)/25)) {	if ($thisrow) {
	if ($n/25==int($n/25)) {
my $what='Student';	my $what='Student';
if (&gettype($safeeval) eq 'assesscalc') {	if (&gettype($safeeval) eq 'assesscalc') {
$what='Item';	$what='Item';
Line 786 sub outsheet {	Line 789 sub outsheet {
'n','o','p','q','r','s','t','u','v','w','x','y','z');	'n','o','p','q','r','s','t','u','v','w','x','y','z');
$r->print('</tr>');	$r->print('</tr>');
}	}
$n++;	$n++;
$r->print($rowprt[$row]);	$r->print($thisrow);
}	}
}	}
$r->print('</table>');	$r->print('</table>');
undef @rowprt;
}	}

#	#