--- 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';