--- loncom/interface/lonparmset.pm	2003/11/18 22:18:42	1.136
+++ loncom/interface/lonparmset.pm	2003/11/21 18:18:04	1.138
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.136 2003/11/18 22:18:42 albertel Exp $
+# $Id: lonparmset.pm,v 1.138 2003/11/21 18:18:04 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -285,7 +285,7 @@ sub plink {
 
 
 sub startpage {
-    my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;
+    my ($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader)=@_;
 
     my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
                                             'onUnload="pclose()"');
@@ -354,7 +354,9 @@ sub startpage {
 $selscript
 </head>
 $bodytag
+ENDHEAD
 
+    unless ($trimheader) {$r->print(<<ENDHEAD2);
 <form method="post" action="/adm/parmset" name="envform">
 <h4>$lt{'cep'}</h4>
 <input type="submit" name="crsenv" value="$lt{'scep'}" />
@@ -370,9 +372,12 @@ $bodytag
 <input type="submit" name="overview" value="$lt{'mcap'}" />
 </form>
 <hr />
+ENDHEAD2
+}
+    $r->print(<<ENDHEAD3);
 <form method="post" action="/adm/parmset" name="parmform">
 <h4>$lt{'captm'}</h4>
-ENDHEAD
+ENDHEAD3
 
     if (!$have_assesments) {
 	$r->print('<font color="red">'.&mt('There are no assesment parameters in this course to set.').'</font><br />');	
@@ -689,6 +694,7 @@ sub assessparms {
 
     my $pssymb='';
     my $parmlev='';
+    my $trimheader='';
     my $prevvisit=$ENV{'form.prevvisit'};
 
 #    unless ($parmlev==$ENV{'form.parmlev'}) {
@@ -711,11 +717,13 @@ sub assessparms {
 	if (!@pscat) { @pscat=('all'); }
 	$pschp='';
         $parmlev = 'full';
+        $trimheader='yes';
     } elsif ($ENV{'form.symb'}) {
 	$pssymb=$ENV{'form.symb'};
 	if (!@pscat) { @pscat=('all'); }
 	$pschp='';
         $parmlev = 'full';
+        $trimheader='yes';
     } else {
 	$ENV{'form.url'}='';
     }
@@ -905,7 +913,7 @@ sub assessparms {
     my $have_assesments=1;
     if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }
 
-    &startpage($r,$id,$udom,$csec,$uname,$have_assesments);
+    &startpage($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader);
 
     if (!$have_assesments) {
 	untie(%bighash);
@@ -1512,8 +1520,8 @@ sub crsenv {
              'courseid'       => '<b>Course ID or number</b><br />'.
                                  '(internal, optional)',
              'grading'        => '<b>Grading</b>'.
-                                 '"standard" or any other value.  '.
-                                 'Default for new courses is "standard".',
+                                 '"standard", "external", or any other value.'.
+                                 '  Default for new courses is "standard".',
 
              'default_xml_style' => '<b>Default XML Style File</b> '.
                     '<a href="javascript:openbrowser'.