--- loncom/interface/lonparmset.pm	2001/02/08 14:05:10	1.23
+++ loncom/interface/lonparmset.pm	2001/03/20 22:01:13	1.24
@@ -11,7 +11,7 @@
 #
 # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
 # 12/08,12/12,
-# 16/01/01,02/08 Gerd Kortemeyer
+# 16/01/01,02/08,03/20 Gerd Kortemeyer
 
 package Apache::lonparmset;
 
@@ -321,6 +321,18 @@ sub handler {
        my $reply='';
            if ($snum>3) {
 # ---------------------------------------------------------------- Store Course
+#
+# Expire sheets
+	    &Apache::lonnet::expirespread('studentcalc');
+            if (($snum==7) || ($snum==4)) {
+		&Apache::lonnet::expirespread('assesscalc',$symbp{$sresid});
+            } elsif (($snum==8) || ($snum==5)) {
+		&Apache::lonnet::expirespread('assesscalc',$mapp{$sresid});
+            } else {
+		&Apache::lonnet::expirespread('assesscalc');
+            }
+
+# Store parameter
             $reply=&Apache::lonnet::critical('put:'.
              $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
              $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata:'.
@@ -328,6 +340,20 @@ sub handler {
              $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
            } else {
 # ------------------------------------------------------------------ Store User
+#
+# Expire sheets
+	    &Apache::lonnet::expirespread($uname,$udom,'studentcalc');
+            if ($snum==1) {
+		&Apache::lonnet::expirespread
+                    ($uname,$udom,'assesscalc',$symbp{$sresid});
+            } elsif ($snum==2) {
+		&Apache::lonnet::expirespread
+                    ($uname,$udom,'assesscalc',$mapp{$sresid});
+            } else {
+		&Apache::lonnet::expirespread($uname,$udom,'assesscalc');
+            }
+                
+# Store parameter
             $reply=
             &Apache::lonnet::critical('put:'.$udom.':'.$uname.':resourcedata:'.
              $storecontent,$uhome);