--- loncom/interface/lonparmset.pm	2003/01/19 11:55:14	1.82
+++ loncom/interface/lonparmset.pm	2003/04/18 15:24:53	1.87
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.82 2003/01/19 11:55:14 www Exp $
+# $Id: lonparmset.pm,v 1.87 2003/04/18 15:24:53 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -285,8 +285,6 @@ sub plink {
 
 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()"');
@@ -1562,7 +1560,7 @@ ENDENV
 
 =pod
 
-=item handler
+=item * handler
 
 Main handler.  Calls &assessparms and &crsenv subroutines.
 
@@ -1570,6 +1568,7 @@ Main handler.  Calls &assessparms and &c
 
 ##################################################
 ##################################################
+    use Data::Dumper;
 sub handler {
     my $r=shift;
 
@@ -1579,6 +1578,10 @@ sub handler {
 	return OK;
     }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
+
+    $r->content_type('text/html');
+    $r->send_http_header;
+
 # ----------------------------------------------------- Needs to be in a course
 
     if (($ENV{'request.course.id'}) &&