--- loncom/interface/spreadsheet/lonspreadsheet.pm	2003/09/29 14:00:21	1.25
+++ loncom/interface/spreadsheet/lonspreadsheet.pm	2003/09/30 15:40:09	1.26
@@ -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::Constants qw(:common :http);
 use Apache::lonnet;
 use Apache::lonhtmlcommon;
 use Apache::lonlocal;
+use Apache::loncoursedata();
 use HTML::Entities();
 
 ##
@@ -374,6 +375,9 @@ ENDSCRIPT
     ##
     ## 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