--- loncom/interface/lonparmset.pm	2003/05/27 21:22:13	1.95
+++ 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.95 2003/05/27 21:22:13 www Exp $
+# $Id: lonparmset.pm,v 1.99 2003/06/13 20:01:02 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -58,7 +58,6 @@ 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;
@@ -286,14 +285,10 @@ sub plink {
 
 
 sub startpage {
-    my ($r,$id,$udom,$csec,$uname)=@_;
- 
-    my $bodytag=&Apache::lonmenu::registerurl().
-                &Apache::loncommon::bodytag('Set Course Parameters','',
-                                            'onUnload="'.
-       &Apache::lonmenu::unloadevents().';pclose();" onLoad="'.
-       &Apache::lonmenu::loadevents().'"').
-       &Apache::lonmenu::regflush();
+    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').' '.
         &Apache::loncommon::selectstudent_link('parmform','uname','udom');
     my $selscript=&Apache::loncommon::studentbrowser_javascript();
@@ -356,6 +351,12 @@ simpler interface to set open, due, or a
 </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">
@@ -371,7 +372,7 @@ $chooseopt
 <input type="hidden" value='' name="pres_type">
 <input type="hidden" value='' name="pres_marker">
 ENDHEAD
-
+    }
 }
 
 sub print_row {
@@ -766,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'});
@@ -882,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">');
@@ -1048,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>');
@@ -1591,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'}) &&