[LON-CAPA-cvs] cvs: loncom /interface/spreadsheet assesscalc.pm

[albertel]

albertel		Sat May 14 22:49:07 2005 EDT

  Modified files:              
    /loncom/interface/spreadsheet	assesscalc.pm 
  Log:
  - mimize the size of sheet_values
  
  
Index: loncom/interface/spreadsheet/assesscalc.pm
diff -u loncom/interface/spreadsheet/assesscalc.pm:1.44 loncom/interface/spreadsheet/assesscalc.pm:1.45
--- loncom/interface/spreadsheet/assesscalc.pm:1.44	Sat May 14 22:40:26 2005
+++ loncom/interface/spreadsheet/assesscalc.pm	Sat May 14 22:49:07 2005
@@ -1,5 +1,5 @@
 #
-# $Id: assesscalc.pm,v 1.44 2005/05/15 02:40:26 albertel Exp $
+# $Id: assesscalc.pm,v 1.45 2005/05/15 02:49:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -833,7 +833,10 @@
     while (my ($cell,$formula) = each(%{$self->{'formulas'}})) {
 	next if ($cell =~ /template_/);
         if ($cell =~ /^A/ && $cell ne 'A0') {
-            if ($formula !~ /^\!/) {
+	    if ($formula !~ /^\!/ 
+		&& exists($self->{'constants'}->{$formula}) 
+		&& $self->{'constants'}->{$formula} ne ''
+		) {
 		$Apache::Spreadsheet::sheet_values{$cell}=
 		    eval($self->{'constants'}->{$formula});
             }