loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.5, 2003/05/22 21:16:35	version 1.7, 2003/05/23 14:52:51
Line 540 sub compute {	Line 540 sub compute {
while (my ($parm,$value) = each(%parameters)) {	while (my ($parm,$value) = each(%parameters)) {
my $cell = 'A'.$self->get_row_number_from_key($parm);	my $cell = 'A'.$self->get_row_number_from_key($parm);
$f{$cell} = $parm;	$f{$cell} = $parm;
$c{$parm} = '';	$value = '"'.$value.'"' if ($value =~/[^0-9.]/);
if ($value ne '') {	$c{$parm} = $value;
$c{$parm} = '"'.$value.'"';
}
}	}
$self->formulas(%f);	$self->formulas(\%f);
$self->constants(%c);	$self->constants(\%c);
$self->calcsheet();	$self->calcsheet();
#	#
# Store export row in cache	# Store export row in cache
Line 699 Writes the export data for this spreadsh	Line 697 Writes the export data for this spreadsh
#############################################	#############################################
sub save_export_data {	sub save_export_data {
my $self = shift;	my $self = shift;
	return if ($self->temporary());
my $student = $self->{'name'}.':'.$self->{'domain'};	my $student = $self->{'name'}.':'.$self->{'domain'};
my $symb = $self->{'symb'};	my $symb = $self->{'symb'};
if (! exists($Exportrows{$symb}) \|\|	if (! exists($Exportrows{$symb}) \|\|