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

[albertel]

albertel		Wed Aug 24 14:14:50 2005 EDT

  Modified files:              
    /loncom/interface/spreadsheet	Spreadsheet.pm 
  Log:
  - BUG#4287
  
  
Index: loncom/interface/spreadsheet/Spreadsheet.pm
diff -u loncom/interface/spreadsheet/Spreadsheet.pm:1.52 loncom/interface/spreadsheet/Spreadsheet.pm:1.53
--- loncom/interface/spreadsheet/Spreadsheet.pm:1.52	Thu Jun 23 13:55:01 2005
+++ loncom/interface/spreadsheet/Spreadsheet.pm	Wed Aug 24 14:14:47 2005
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.52 2005/06/23 17:55:01 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.53 2005/08/24 18:14:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1653,8 +1653,10 @@
             }
         }
         $filename=$self->filename(); # filename may have changed
-        $cachekey = join('_',($cnum,$cdom,$stype,$filename));
-        %{$spreadsheets{$cachekey}->{'formulas'}} = %{$formulas};
+	$cachekey = join('_',($cnum,$cdom,$stype,$filename));
+	if (ref($formulas) eq 'HASH') {
+	    %{$spreadsheets{$cachekey}->{'formulas'}} = %{$formulas};
+	}
 	$self->formulas($formulas);
 	$self->set_row_sources();
 	$self->set_row_numbers();