Return to assesscalc.pm CVS log | Up to [LON-CAPA] / loncom / interface / spreadsheet |
version 1.31, 2004/02/03 22:19:47 | version 1.32, 2004/02/03 22:44:02 |
---|---|
Line 784 sub compute { | Line 784 sub compute { |
if ($parm =~ /_submission$/ && $value =~ /(\{|\})/) { | if ($parm =~ /_submission$/ && $value =~ /(\{|\})/) { |
$value = 'witheld'; | $value = 'witheld'; |
} | } |
$value = 'q{'.$value.'}' if ($value !~/^\s*\d+(\.\d+)?\s*$/); | $value = 'q{'.$value.'}' if ($value =~/([^\d\.]|\.\.)/); |
$c{$parm} = $value; | $c{$parm} = $value; |
} | } |
$self->formulas(\%f); | $self->formulas(\%f); |