version 1.3, 2003/05/22 20:06:09
|
version 1.4, 2003/05/22 20:23:56
|
Line 526 sub compute {
|
Line 526 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.'"'; |
$c{$parm} = ''; |
|
if ($value ne '') { |
|
$c{$parm} = '"'.$value.'"'; |
|
} |
} |
} |
$self->formulas(%f); |
$self->formulas(%f); |
$self->constants(%c); |
$self->constants(%c); |