--- loncom/interface/lonparmset.pm	2003/05/03 21:30:21	1.89
+++ loncom/interface/lonparmset.pm	2003/05/27 21:22:13	1.95
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.89 2003/05/03 21:30:21 albertel Exp $
+# $Id: lonparmset.pm,v 1.95 2003/05/27 21:22:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -58,6 +58,7 @@ use Apache::lonnet;
 use Apache::Constants qw(:common :http REDIRECT);
 use Apache::lonhtmlcommon();
 use Apache::loncommon;
+use Apache::lonmenu;
 use GDBM_File;
 use Apache::lonhomework;
 use Apache::lonxml;
@@ -287,8 +288,12 @@ sub plink {
 sub startpage {
     my ($r,$id,$udom,$csec,$uname)=@_;
  
-    my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',
-                                            'onUnload="pclose()"');
+    my $bodytag=&Apache::lonmenu::registerurl().
+                &Apache::loncommon::bodytag('Set Course Parameters','',
+                                            'onUnload="'.
+       &Apache::lonmenu::unloadevents().';pclose();" onLoad="'.
+       &Apache::lonmenu::loadevents().'"').
+       &Apache::lonmenu::regflush();
     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
         &Apache::loncommon::selectstudent_link('parmform','uname','udom');
     my $selscript=&Apache::loncommon::studentbrowser_javascript();
@@ -341,6 +346,10 @@ sub startpage {
 $selscript
 </head>
 $bodytag
+
+<a href="/adm/helper/parameter.helper">Use Assignment Parameter Helper</a>, a
+simpler interface to set open, due, or answer open dates for problems or sequences.
+
 <form method="post" action="/adm/parmset" name="envform">
 <h3>Course Environment</h3>
 <input type="submit" name="crsenv" value="Set Course Environment">
@@ -683,12 +692,12 @@ sub assessparms {
 	my $url=$ENV{'form.url'};
 	$url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
 	$pssymb=&Apache::lonnet::symbread($url);
-	@pscat='all';
+	if (!@pscat) { @pscat=('all'); }
 	$pschp='';
         $parmlev = 'full';
     } elsif ($ENV{'form.symb'}) {
 	$pssymb=$ENV{'form.symb'};
-	@pscat='all';
+	if (!@pscat) { @pscat=('all'); }
 	$pschp='';
         $parmlev = 'full';
     } else {
@@ -1449,7 +1458,8 @@ sub crsenv {
              'hideemptyrows'  => '<b>Hide Empty Rows in Spreadsheets</b><br />'.
                                  '("<tt>yes</tt>" for default hiding)',
              'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br />'.
-                                 '("<tt>yes</tt>" for visible separation)',
+                                 '("<tt>yes</tt>" for visible separation, '.
+                                 'changes will not show until next login)',
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.
                                   'Roles</b><br />"<tt>st</tt>": '.
                                   'student, "<tt>ta</tt>": '.
@@ -1478,9 +1488,12 @@ sub crsenv {
 	         => '<b>Allow limited HTML in discussion posts</b><br />'.
 	            '(Set value to yes to allow)',
 	     'rndseed'
-	         => '<b>Random seed algorithm used</b> <br />'.
+	         => '<b>Randomization algorithm used</b> <br />'.
                     '<font color="red">Modifying this will make problems '.
-                    'display different numbers or correct answer</font>'
+                    'have different numbers and answers</font>',
+             'problem_stream_switch'
+                 => '<b>Allow problems to be splitted over pages</b><br />'.
+                    ' (<tt><b>yes</b> if allow anything else if not</tt>)'
              );
 	foreach (keys(%values)) {
 	    unless ($descriptions{$_}) {