loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.167, 2003/01/30 21:35:13	version 1.168, 2003/02/13 19:07:46
Line 1744 sub calcsheet {	Line 1744 sub calcsheet {
$self->sett();	$self->sett();
my $result = $self->{'safe'}->reval('&calc();');	my $result = $self->{'safe'}->reval('&calc();');
%{$self->{'values'}} = %{$self->{'safe'}->varglob('sheet_values')};	%{$self->{'values'}} = %{$self->{'safe'}->varglob('sheet_values')};
	# $self->logthis($self->get_errorlog());
return $result;	return $result;
}	}

Line 2540 sub export_sheet_as_excel {	Line 2541 sub export_sheet_as_excel {
}	}
next if ($row_is_empty);	next if ($row_is_empty);
}	}
	$worksheet->write($rows_output,$cols_output++,$rownum);
$worksheet->write($rows_output,$cols_output++,$label);	$worksheet->write($rows_output,$cols_output++,$label);
if (ref($label)) {	if (ref($label)) {
$cols_output = (scalar(@$label));	$cols_output = (scalar(@$label));
Line 3131 sub loadstudent{	Line 3133 sub loadstudent{
my %formulas = $self->formulas();	my %formulas = $self->formulas();
$cachedassess = $self->{'uname'}.':'.$self->{'udom'};	$cachedassess = $self->{'uname'}.':'.$self->{'udom'};
# Get ALL the student preformance data	# Get ALL the student preformance data
my @tmp = &Apache::lonnet::currentdump($self->{'cid'},	my @tmp = &Apache::lonnet::currentdump($self->{'uname'},
$self->{'udom'},	$self->{'udom'},
$self->{'uname'});	$self->{'cid'});
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {	if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {
%cachedstores = @tmp;	%cachedstores = @tmp;
}	}