--- loncom/interface/lonparmset.pm	2003/05/04 07:38:32	1.90
+++ loncom/interface/lonparmset.pm	2003/06/13 20:01:02	1.99
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.90 2003/05/04 07:38:32 albertel Exp $
+# $Id: lonparmset.pm,v 1.99 2003/06/13 20:01:02 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -285,8 +285,8 @@ sub plink {
 
 
 sub startpage {
-    my ($r,$id,$udom,$csec,$uname)=@_;
- 
+    my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;
+
     my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',
                                             'onUnload="pclose()"');
     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
@@ -341,12 +341,22 @@ 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">
 </form>
 <form method="post" action="/adm/parmset" name="parmform">
 <h3>Course Assessments</h3>
+ENDHEAD
+
+    if (!$have_assesments) {
+	$r->print('<font color="red">There are no assesment parameters in this course to set.</font><br />');	
+    } else {
+	$r->print(<<ENDHEAD);
 <b>
 Section/Group:
 <input type="text" value="$csec" size="6" name="csec">
@@ -362,7 +372,7 @@ $chooseopt
 <input type="hidden" value='' name="pres_type">
 <input type="hidden" value='' name="pres_marker">
 ENDHEAD
-
+    }
 }
 
 sub print_row {
@@ -683,12 +693,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 {
@@ -757,6 +767,7 @@ sub assessparms {
 
     $mapp{'0.0'} = '';
     $symbp{'0.0'} = '';
+
 # ---------------------------------------------------------- Anything to store?
     if ($ENV{'form.pres_marker'}) {
 	my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});
@@ -873,7 +884,12 @@ sub assessparms {
     if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}
 # ------------------------------------------------------------------ Start page
 
-    &startpage($r,$id,$udom,$csec,$uname);
+    my $have_assesments=1;
+    if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }
+
+    &startpage($r,$id,$udom,$csec,$uname,$have_assesments);
+
+    if (!$have_assesments) { return ''; }
 #    if ($ENV{'form.url'}) {
 #	$r->print('<input type="hidden" value="'.$ENV{'form.url'}.
 #		  '" name="url"><input type="hidden" name="command" value="set">');
@@ -1039,9 +1055,7 @@ sub assessparms {
         my $csuname=$ENV{'user.name'};
         my $csudom=$ENV{'user.domain'};
 
-
         if ($parmlev eq 'full' || $parmlev eq 'brief') {
-
            my $coursespan=$csec?8:5;
            $r->print('<p><table border=2>');
            $r->print('<tr><td colspan=5></td>');
@@ -1449,7 +1463,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>": '.
@@ -1480,7 +1495,10 @@ sub crsenv {
 	     'rndseed'
 	         => '<b>Randomization algorithm used</b> <br />'.
                     '<font color="red">Modifying this will make problems '.
-                    'have different numbers and answers</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{$_}) {
@@ -1578,7 +1596,6 @@ sub handler {
 
     $r->content_type('text/html');
     $r->send_http_header;
-
 # ----------------------------------------------------- Needs to be in a course
 
     if (($ENV{'request.course.id'}) &&