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.147, 2002/11/21 19:26:34
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);
Line 2317 sub updatestudentassesssheet {	Line 2316 sub updatestudentassesssheet {
$sheet->{'maxrow'} = 0;	$sheet->{'maxrow'} = 0;
my %existing=();	my %existing=();
# Now obsolete rows	# Now obsolete rows
while (my ($cell, $formula) = each (%f)) {	foreach my $cell (keys(%f)) {
	my $formula = $f{$cell};
next if ($cell !~ /^A(\d+)/);	next if ($cell !~ /^A(\d+)/);
$sheet->{'maxrow'} = $1 if ($1 > $sheet->{'maxrow'});	$sheet->{'maxrow'} = $1 if ($1 > $sheet->{'maxrow'});
my ($usy,$ufn)=split(/__&&&\__/,$formula);	my ($usy,$ufn)=split(/__&&&\__/,$formula);