loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.30, 2003/12/08 19:58:39	version 1.31, 2004/02/03 22:19:47
Line 781 sub compute {	Line 781 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;
$value = '"'.$value.'"' if ($value =~/[^0-9.]/);	if ($parm =~ /_submission$/ && $value =~ /(\{\|\})/) {
	$value = 'witheld';
	}
	$value = 'q{'.$value.'}' if ($value !~/^\s\d+(\.\d+)?\s$/);
$c{$parm} = $value;	$c{$parm} = $value;
}	}
$self->formulas(\%f);	$self->formulas(\%f);