version 1.49, 2005/05/17 18:04:40
|
version 1.50, 2005/05/17 20:14:19
|
Line 789 sub compute {
|
Line 789 sub compute {
|
$value = 'q{'.$value.'}' if ($value =~/([^\d\.]|\.\.)/); |
$value = 'q{'.$value.'}' if ($value =~/([^\d\.]|\.\.)/); |
$c{$parm} = $value; |
$c{$parm} = $value; |
} |
} |
|
foreach my $cell (grep(/^A/,keys(%f))) { |
|
# Clean out any bad formulas |
|
next if (exists($c{$f{$cell}})); |
|
next if ($cell eq 'A0'); |
|
delete($f{$cell}); |
|
} |
$self->formulas(\%f); |
$self->formulas(\%f); |
$self->constants(\%c); |
$self->constants(\%c); |
$self->calcsheet(); |
$self->calcsheet(); |