--- loncom/interface/spreadsheet/Spreadsheet.pm 2006/02/27 19:36:20 1.63
+++ loncom/interface/spreadsheet/Spreadsheet.pm 2006/03/05 21:35:10 1.64
@@ -1,5 +1,5 @@
#
-# $Id: Spreadsheet.pm,v 1.63 2006/02/27 19:36:20 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.64 2006/03/05 21:35:10 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -722,7 +722,7 @@ sub calc {
$notfinished=0;
while (my ($cell,$value) = each(%t)) {
my $old=$sheet_values{$cell};
- $sheet_values{$cell}=eval $value;
+ #$sheet_values{$cell}=eval $value;
# $errorlog .= $cell.' = '.$old.'->'.$sheet_values{$cell}."\n";
if ($@) {
undef %sheet_values;
@@ -808,7 +808,7 @@ sub expandnamed {
$result.=$thissum.'+';
}
$result=~s/\+$//;
- return $result;
+ return '('.$result.')';
} else {
return 0;
}
@@ -1290,13 +1290,15 @@ sub html_editable_cell {
}
$name = '' if (! defined($name));
$formula = '' if (! defined($formula));
- if ($showsource) {
+ if ($showsource)
+ {
if (!defined($formula) || $formula =~ /^\s*$/) {
$value = '#';
} else {
$value = &HTML::Entities::encode($formula, '<>&"');
}
- } elsif (! defined($value)) {
+ }
+ elsif (! defined($value)) {
$value = '#';
if ($formula ne '') {
$value = 'undefined value';