[LON-CAPA-cvs] cvs: loncom /html/adm/helper newslot.helper

[raeburn]

raeburn		Tue Dec 20 22:47:57 2011 EDT

  Modified files:              
    /loncom/html/adm/helper	newslot.helper 
  Log:
  - devalidate allslots cache when changes made to a slot.
  
  
Index: loncom/html/adm/helper/newslot.helper
diff -u loncom/html/adm/helper/newslot.helper:1.28 loncom/html/adm/helper/newslot.helper:1.29
--- loncom/html/adm/helper/newslot.helper:1.28	Sun Dec 18 17:15:08 2011
+++ loncom/html/adm/helper/newslot.helper	Tue Dec 20 22:47:56 2011
@@ -396,6 +396,9 @@
         my $ret = &Apache::lonnet::cput('slots',
 					{$helper->{'VARS'}{'name'} => \%slot},
 					$cdom,$cname);
+        if ($ret eq 'ok') {
+            &Apache::lonnet::devalidate_slots_cache($cname,$cdom);
+        }
         $result.="\n ".'Name: '.&HTML::Entities::encode($helper->{'VARS'}{'name'}).'</li>'.
     "\n".'<li> Starts: '.&Apache::lonlocal::locallocaltime($slot{'starttime'}).'</li>'.
                  "\n".'<li> Ends: '.&Apache::lonlocal::locallocaltime($slot{'endtime'}).'</li>'.