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

[albertel]

albertel		Fri Jul  2 04:12:24 2004 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - allow IN with sections access to the PARM screen, BUG#3122
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.164 loncom/interface/lonparmset.pm:1.165
--- loncom/interface/lonparmset.pm:1.164	Mon Jun 28 11:02:31 2004
+++ loncom/interface/lonparmset.pm	Fri Jul  2 04:12:23 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.164 2004/06/28 15:02:31 sakharuk Exp $
+# $Id: lonparmset.pm,v 1.165 2004/07/02 08:12:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1913,7 +1913,10 @@
 # ----------------------------------------------------- Needs to be in a course
 
     if (($ENV{'request.course.id'}) && 
-	(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {
+	(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}) || 
+	 &Apache::lonnet::allowed('opa',$ENV{'request.course.id'}.'/'.
+				  $ENV{'request.course.sec'})
+	 )) {
 
         &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;