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

[matthew]

matthew		Tue Sep 16 11:41:16 2003 EDT

  Modified files:              
    /loncom/interface/spreadsheet	lonspreadsheet.pm 
  Log:
  Don't die entirely on a bad attempt to save spreadsheet.
  Report the current filename when save is successful, not just what the
  user told us to make the filename.
  
  
Index: loncom/interface/spreadsheet/lonspreadsheet.pm
diff -u loncom/interface/spreadsheet/lonspreadsheet.pm:1.23 loncom/interface/spreadsheet/lonspreadsheet.pm:1.24
--- loncom/interface/spreadsheet/lonspreadsheet.pm:1.23	Thu Sep  4 21:06:45 2003
+++ loncom/interface/spreadsheet/lonspreadsheet.pm	Tue Sep 16 11:41:16 2003
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.23 2003/09/05 01:06:45 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.24 2003/09/16 15:41:16 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -105,9 +105,8 @@
         if ($save_status ne 'ok') {
             $message .= "An error occurred while saving the spreadsheet".
                 "There error is:".$save_status;
-            return $result;
         } else {
-            $message .= "Spreadsheet saved as ".$ENV{'form.savefilename'};
+            $message .= "Spreadsheet saved as ".$spreadsheet->filename();
         }
     } elsif (exists($ENV{'form.newformula'}) && 
              exists($ENV{'form.cell'})       &&