--- loncom/interface/lonparmset.pm	2002/11/03 19:05:31	1.76
+++ loncom/interface/lonparmset.pm	2002/11/19 19:20:50	1.77
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.76 2002/11/03 19:05:31 www Exp $
+# $Id: lonparmset.pm,v 1.77 2002/11/19 19:20:50 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1377,6 +1377,22 @@ sub crsenv {
                          $dom,$crs).
                     '<br>';
             }
+            if ($name =~ /^spreadsheet_default_(classcalc|
+                                                studentcalc|
+                                                assesscalc)$/x) {
+                my $sheettype = $1;
+                if ($sheettype eq 'classcalc') {
+                    # no need to do anything since viewing the sheet will
+                    # cause it to be updated.
+                } elsif ($sheettype eq 'studentcalc') {
+                    # expire all the student spreadsheets
+                    &Apache::lonnet::expirespread('','','studentcalc');
+                } else {
+                    # expire all the default assessment spreadsheets
+                    # ACK!  No way to do this currently!!!!! Bummer!
+                }
+            }
+
             if ($name) {
                 $setoutput.='Setting <tt>'.$name.'</tt> to <tt>'.
                     $value.'</tt>: '.