version 1.62, 2006/02/27 00:56:47
|
version 1.64, 2006/03/05 21:35:10
|
Line 722 sub calc {
|
Line 722 sub calc {
|
$notfinished=0; |
$notfinished=0; |
while (my ($cell,$value) = each(%t)) { |
while (my ($cell,$value) = each(%t)) { |
my $old=$sheet_values{$cell}; |
my $old=$sheet_values{$cell}; |
$sheet_values{$cell}=eval $value; |
#$sheet_values{$cell}=eval $value; |
# $errorlog .= $cell.' = '.$old.'->'.$sheet_values{$cell}."\n"; |
# $errorlog .= $cell.' = '.$old.'->'.$sheet_values{$cell}."\n"; |
if ($@) { |
if ($@) { |
undef %sheet_values; |
undef %sheet_values; |
Line 808 sub expandnamed {
|
Line 808 sub expandnamed {
|
$result.=$thissum.'+'; |
$result.=$thissum.'+'; |
} |
} |
$result=~s/\+$//; |
$result=~s/\+$//; |
return $result; |
return '('.$result.')'; |
} else { |
} else { |
return 0; |
return 0; |
} |
} |