--- loncom/interface/Attic/lonspreadsheet.pm	2001/04/05 21:35:02	1.53
+++ loncom/interface/Attic/lonspreadsheet.pm	2001/04/09 17:59:04	1.54
@@ -5,7 +5,7 @@
 # 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30,
 # 01/01/01,02/01,03/01,19/01,20/01,22/01,
 # 03/05,03/08,03/10,03/12,03/13,03/15,03/17,
-# 03/19,03/20,03/21,03/27,04/05 Gerd Kortemeyer
+# 03/19,03/20,03/21,03/27,04/05,04/09 Gerd Kortemeyer
 
 package Apache::lonspreadsheet;
             
@@ -1811,6 +1811,18 @@ ENDSCRIPT
 
     $r->rflush();
 
+# ---------------------------------------------------------------- Full recalc?
+
+
+    if ($ENV{'form.forcerecalc'}) {
+	$r->print('<h4>Completely Recalculating Sheet ...</h4>');
+        undef %spreadsheets;
+        undef %courserdatas;
+        undef %userrdatas;
+        undef %defaultsheets;
+        undef %updatedata;
+   }
+ 
 # ---------------------------------------- Read new sheet or modified worksheet
 
     $r->uri=~/\/(\w+)$/;