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

[matthew]

matthew		Fri Jun 20 12:14:30 2003 EDT

  Modified files:              
    /loncom/interface/spreadsheet	Spreadsheet.pm 
  Log:
  When changing the default assesscalc spreadsheet we now expire the
  student level spreadsheets.
  
  
Index: loncom/interface/spreadsheet/Spreadsheet.pm
diff -u loncom/interface/spreadsheet/Spreadsheet.pm:1.15 loncom/interface/spreadsheet/Spreadsheet.pm:1.16
--- loncom/interface/spreadsheet/Spreadsheet.pm:1.15	Wed Jun 18 15:09:23 2003
+++ loncom/interface/spreadsheet/Spreadsheet.pm	Fri Jun 20 12:14:30 2003
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.15 2003/06/18 19:09:23 matthew Exp $
+# $Id: Spreadsheet.pm,v 1.16 2003/06/20 16:14:30 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1618,6 +1618,9 @@
         } 
         if ($self->is_default()) {
             &Apache::lonnet::expirespread('','',$self->{'type'},'');
+            if ($self->{'type'} eq 'assesscalc') {
+                &Apache::lonnet::expirespread('','','studentcalc','');
+            }
         }
         return $reply;
     }