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

[matthew]

matthew		Tue Sep 30 11:40:09 2003 EDT

  Modified files:              
    /loncom/interface/spreadsheet	lonspreadsheet.pm 
  Log:
  Clear out data caches when we do any recalculations.
  
  
Index: loncom/interface/spreadsheet/lonspreadsheet.pm
diff -u loncom/interface/spreadsheet/lonspreadsheet.pm:1.25 loncom/interface/spreadsheet/lonspreadsheet.pm:1.26
--- loncom/interface/spreadsheet/lonspreadsheet.pm:1.25	Mon Sep 29 10:00:21 2003
+++ loncom/interface/spreadsheet/lonspreadsheet.pm	Tue Sep 30 11:40:09 2003
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.25 2003/09/29 14:00:21 www Exp $
+# $Id: lonspreadsheet.pm,v 1.26 2003/09/30 15:40:09 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -63,6 +63,7 @@
 use Apache::lonnet;
 use Apache::lonhtmlcommon;
 use Apache::lonlocal;
+use Apache::loncoursedata();
 use HTML::Entities();
 
 ##
@@ -374,6 +375,9 @@
     ##
     ## Take care of "backdoor" spreadsheet expiration / recalc stuff
     if ($allowed_to_edit && exists($ENV{'form.recalc'})) {
+        if (exists($ENV{'form.recalc'})) {
+            &Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});
+        }
         if ($ENV{'form.recalc'} eq 'ilovewastingtime') {
             &Apache::lonnet::logthis('ilovewastingtime');
             # expire ALL spreadsheets