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

matthew lon-capa-cvs@mail.lon-capa.org
Thu, 22 May 2003 20:23:56 -0000


matthew		Thu May 22 16:23:56 2003 EDT

  Modified files:              
    /loncom/interface/spreadsheet	assesscalc.pm 
  Log:
  If the value is '', we should store away '' and not "''".
  
  
Index: loncom/interface/spreadsheet/assesscalc.pm
diff -u loncom/interface/spreadsheet/assesscalc.pm:1.3 loncom/interface/spreadsheet/assesscalc.pm:1.4
--- loncom/interface/spreadsheet/assesscalc.pm:1.3	Thu May 22 16:06:09 2003
+++ loncom/interface/spreadsheet/assesscalc.pm	Thu May 22 16:23:56 2003
@@ -1,5 +1,5 @@
 #
-# $Id: assesscalc.pm,v 1.3 2003/05/22 20:06:09 matthew Exp $
+# $Id: assesscalc.pm,v 1.4 2003/05/22 20:23:56 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -526,7 +526,10 @@
     while (my ($parm,$value) = each(%parameters)) {
         my $cell = 'A'.$self->get_row_number_from_key($parm);
         $f{$cell} = $parm;
-        $c{$parm} = '"'.$value.'"';
+        $c{$parm} = '';
+        if ($value ne '') {
+            $c{$parm} = '"'.$value.'"';
+        }
     }
     $self->formulas(%f);
     $self->constants(%c);