loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.76, 2002/11/03 19:05:31
+version 1.77, 2002/11/19 19:20:50
  Line 1377  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>: '.