[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

[www]

www		Fri Jun 20 10:56:09 2003 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  Small part of Bug #1797: at least make the "Access Control" screen decent.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.105 loncom/interface/lonparmset.pm:1.106
--- loncom/interface/lonparmset.pm:1.105	Fri Jun 20 10:34:04 2003
+++ loncom/interface/lonparmset.pm	Fri Jun 20 10:56:09 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.105 2003/06/20 14:34:04 matthew Exp $
+# $Id: lonparmset.pm,v 1.106 2003/06/20 14:56:09 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1606,12 +1606,13 @@
     }
     &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'}) && 
 	(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {
+
+        $r->content_type('text/html');
+        $r->send_http_header;
  
         $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};