version 1.48, 2005/05/17 18:01:58
|
version 1.49, 2005/05/17 18:04:40
|
Line 786 sub compute {
|
Line 786 sub compute {
|
if ($parm =~ /_submission$/ && $value =~ /(\{|\})/) { |
if ($parm =~ /_submission$/ && $value =~ /(\{|\})/) { |
$value = 'witheld'; |
$value = 'witheld'; |
} |
} |
#$value = 'q{'.$value.'}' if ($value =~/([^\d\.]|\.\.)/); |
$value = 'q{'.$value.'}' if ($value =~/([^\d\.]|\.\.)/); |
$c{$parm} = $value; |
$c{$parm} = $value; |
} |
} |
$self->formulas(\%f); |
$self->formulas(\%f); |
Line 837 sub sett {
|
Line 837 sub sett {
|
&& $self->{'constants'}->{$formula} ne '' |
&& $self->{'constants'}->{$formula} ne '' |
) { |
) { |
$Apache::Spreadsheet::sheet_values{$cell}= |
$Apache::Spreadsheet::sheet_values{$cell}= |
$self->{'constants'}->{$formula}; |
eval($self->{'constants'}->{$formula}); |
} |
} |
} else { |
} else { |
$t{$cell}=$formula; |
$t{$cell}=$formula; |