loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.64, 2006/03/05 21:35:10	version 1.65, 2006/03/05 21:38:27
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 1290 sub html_editable_cell {	Line 1290 sub html_editable_cell {
}	}
$name = '' if (! defined($name));	$name = '' if (! defined($name));
$formula = '' if (! defined($formula));	$formula = '' if (! defined($formula));
if ($showsource)	if ($showsource) {
{
if (!defined($formula) \|\| $formula =~ /^\s*$/) {	if (!defined($formula) \|\| $formula =~ /^\s*$/) {
$value = '<font color="'.$bgcolor.'">#</font>';	$value = '<font color="'.$bgcolor.'">#</font>';
} else {	} else {
$value = &HTML::Entities::encode($formula, '<>&"');	$value = &HTML::Entities::encode($formula, '<>&"');
}	}
}	} elsif (! defined($value)) {
elsif (! defined($value)) {
$value = '<font color="'.$bgcolor.'">#</font>';	$value = '<font color="'.$bgcolor.'">#</font>';
if ($formula ne '') {	if ($formula ne '') {
$value = '<i>undefined value</i>';	$value = '<i>undefined value</i>';