loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.145, 2002/11/21 18:56:36	version 1.146, 2002/11/21 19:05:18
Line 1530 A link to the spreadsheet will be availa	Line 1530 A link to the spreadsheet will be availa
END	END
$r->rflush();	$r->rflush();
my $starttime = time;	my $starttime = time;
foreach (keys(%f)) {	foreach my $rownum (&sort_indicies($sheet)) {
next if ($_!~/^A(\d+)/ \|\| $1 == 0 \|\| ($f{$_}=~/^[!~-]/));
$count++;	$count++;
my ($sname,$sdom) = split(':',$f{$_});	my ($sname,$sdom) = split(':',$f{'A'.$rownum});
my $student_excel_worksheet=$workbook->addworksheet($sname.'@'.$sdom);	my $student_excel_worksheet=$workbook->addworksheet($sname.'@'.$sdom);
# Create a new spreadsheet	# Create a new spreadsheet
my $studentsheet = &makenewsheet($sname,$sdom,'studentcalc',undef);	my $studentsheet = &makenewsheet($sname,$sdom,'studentcalc',undef);