|
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; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to Spreadsheet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / spreadsheet