--- loncom/interface/spreadsheet/assesscalc.pm	2005/04/07 06:56:23	1.39
+++ loncom/interface/spreadsheet/assesscalc.pm	2005/05/13 21:14:46	1.40
@@ -1,5 +1,5 @@
 #
-# $Id: assesscalc.pm,v 1.39 2005/04/07 06:56:23 albertel Exp $
+# $Id: assesscalc.pm,v 1.40 2005/05/13 21:14:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -814,6 +814,7 @@ sub compute {
 sub sett {
     my $self = shift;
     my %t=();
+    undef(%Apache::Spreadsheet::sheet_values);
     #
     # Deal with the template row by copying the template formulas into each
     # row.
@@ -840,7 +841,8 @@ sub sett {
 	next if ($cell =~ /template_/);
         if ($cell =~ /^A/ && $cell ne 'A0') {
             if ($formula !~ /^\!/) {
-                $t{$cell}=$self->{'constants'}->{$formula};
+		$Apache::Spreadsheet::sheet_values{$cell}=
+		    eval($self->{'constants'}->{$formula});
             }
         } else {
             $t{$cell}=$formula;