--- loncom/interface/spreadsheet/assesscalc.pm	2003/05/22 21:16:35	1.5
+++ loncom/interface/spreadsheet/assesscalc.pm	2003/05/23 14:08:40	1.6
@@ -1,5 +1,5 @@
 #
-# $Id: assesscalc.pm,v 1.5 2003/05/22 21:16:35 matthew Exp $
+# $Id: assesscalc.pm,v 1.6 2003/05/23 14:08:40 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -540,13 +540,11 @@ sub compute {
     while (my ($parm,$value) = each(%parameters)) {
         my $cell = 'A'.$self->get_row_number_from_key($parm);
         $f{$cell} = $parm;
-        $c{$parm} = '';
-        if ($value ne '') {
-            $c{$parm} = '"'.$value.'"';
-        }
+        $value = '"'.$value.'"' if ($value =~/[^0-9.]/);
+        $c{$parm} = $value;
     }
-    $self->formulas(%f);
-    $self->constants(%c);
+    $self->formulas(\%f);
+    $self->constants(\%c);
     $self->calcsheet();
     #
     # Store export row in cache