--- loncom/interface/lonparmset.pm	2002/08/19 23:01:27	1.63
+++ loncom/interface/lonparmset.pm	2002/08/21 17:18:08	1.64
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.63 2002/08/19 23:01:27 bowersj2 Exp $
+# $Id: lonparmset.pm,v 1.64 2002/08/21 17:18:08 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -249,6 +249,9 @@ sub startpage {
     my ($r,$id,$udom,$csec,$uname)=@_;
     $r->content_type('text/html');
     $r->send_http_header;
+ 
+    my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',
+                                            'onUnload="pclose()"');
     $r->print(<<ENDHEAD);
 <html>
 <head>
@@ -303,9 +306,7 @@ sub startpage {
     }
 </script>
 </head>
-<body bgcolor="#FFFFFF" onUnload="pclose()">
-<h1>Set Course Parameters for Course:
-$ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h1>
+$bodytag
 <form method="post" action="/adm/parmset" name="envform">
 <h3>Course Environment</h3>
 <input type="submit" name="crsenv" value="Set Course Environment">
@@ -1287,6 +1288,8 @@ Returns: nothing
 sub crsenv {
     my $r=shift;
     my $setoutput='';
+    my $bodytag=&Apache::loncommon::bodytag(
+                             'Set Course Environment Parameters');
     my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
     my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
 # -------------------------------------------------- Go through list of changes
@@ -1428,11 +1431,8 @@ sub crsenv {
 <head>
 <title>LON-CAPA Course Environment</title>
 </head>
-<body bgcolor="#FFFFFF">
-<h1>Set Course Parameters</h1>
+$bodytag
 <form method="post" action="/adm/parmset" name="envform">
-<h2>Course: $ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h2>
-<h3>Course Environment</h3>
 $setoutput
 <p>
 <table border=2>
