[LON-CAPA-cvs] cvs: loncom(version_1_2_X) /xml lonxml.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 18 Oct 2004 19:50:43 -0000


albertel		Mon Oct 18 15:50:43 2004 EDT

  Modified files:              (Branch: version_1_2_X)
    /loncom/xml	lonxml.pm 
  Log:
  - backport 1.345
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.332.2.1 loncom/xml/lonxml.pm:1.332.2.2
--- loncom/xml/lonxml.pm:1.332.2.1	Sun Aug 29 04:17:22 2004
+++ loncom/xml/lonxml.pm	Mon Oct 18 15:50:43 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.332.2.1 2004/08/29 08:17:22 albertel Exp $
+# $Id: lonxml.pm,v 1.332.2.2 2004/10/18 19:50:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1529,6 +1529,12 @@
   if (defined($ENV{'form.grade_symb'})) {
     my $tmp_courseid=$ENV{'form.grade_courseid'};
     my $allowed=&Apache::lonnet::allowed('vgr',$tmp_courseid);
+    if (!$allowed && 
+	exists($ENV{'request.course.sec'}) && 
+	$ENV{'request.course.sec'} !~ /^\s*$/) {
+	$allowed=&Apache::lonnet::allowed('vgr',$ENV{'form.grade_courseid'}.
+					  '/'.$ENV{'request.course.sec'});
+    }
     if ($allowed) {
       $symb=$ENV{'form.grade_symb'};
       $courseid=$ENV{'form.grade_courseid'};