[LON-CAPA-cvs] cvs: loncom /interface londocs.pm lonparmset.pm

[www]

www		Mon Dec  9 17:27:20 2002 EDT

  Modified files:              
    /loncom/interface	londocs.pm lonparmset.pm 
  Log:
  Bug 1009 - warning messages about changes being active later.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.39 loncom/interface/londocs.pm:1.40
--- loncom/interface/londocs.pm:1.39	Wed Dec  4 11:19:05 2002
+++ loncom/interface/londocs.pm	Mon Dec  9 17:27:20 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.39 2002/12/04 16:19:05 www Exp $
+# $Id: londocs.pm,v 1.40 2002/12/09 22:27:20 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -45,6 +45,8 @@
 my $hashtied;
 my %alreadyseen=();
 
+my $hadchanges;
+
 # Mapread read maps into lonratedt::global arrays 
 # @order and @resources, determines status
 # sets @order - pointer to resources in right order
@@ -60,6 +62,7 @@
 
 sub storemap {
     my ($coursenum,$coursedom,$map)=@_;
+    $hadchanges=1;
     return
       &Apache::lonratedt::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'.
                                 $map,1);
@@ -587,7 +590,11 @@
        $r->print('<tr><td bgcolor="#FFFFBB"><h2>Main Course Documents</h2>');
        my $folder=$ENV{'form.folder'};
        unless ($folder=~/^default/) { $folder='default'; }
+       $hadchanges=0;
        &editor($r,$coursenum,$coursedom,$folder,$allowed);
+       if ($hadchanges) {
+	   $r->print('<h3><font color="red">Changes will become active after <a href="/adm/roles">re-initializing course</a> or at next login.</font></h3>');
+       }
        my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
                      '.sequence';
        $r->print(<<ENDFORM);
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.79 loncom/interface/lonparmset.pm:1.80
--- loncom/interface/lonparmset.pm:1.79	Thu Nov 21 17:32:53 2002
+++ loncom/interface/lonparmset.pm	Mon Dec  9 17:27:20 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.79 2002/11/21 22:32:53 albertel Exp $
+# $Id: lonparmset.pm,v 1.80 2002/12/09 22:27:20 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -837,6 +837,7 @@
 	    $message.="<font color=red>Write Error: $1</font>";
 	}
 # ---------------------------------------------------------------- Done storing
+	$message.='<h3>Changes can take up to 10 minutes before being active for all students</h3>';
     }
 # --------------------------------------------- Devalidate cache for this child
         &Apache::lonnet::devalidatecourseresdata(