--- loncom/xml/lonxml.pm 2004/07/26 16:23:47 1.332 +++ loncom/xml/lonxml.pm 2004/10/18 19:50:43 1.332.2.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.332 2004/07/26 16:23:47 sakharuk Exp $ +# $Id: lonxml.pm,v 1.332.2.2 2004/10/18 19:50:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1157,6 +1157,7 @@ $cleanbut BUTTONS + $buttons.=&Apache::lonhtmlcommon::htmlareaselectactive('filecont'); my $editfooter=(< @@ -1528,6 +1529,12 @@ sub whichuser { 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'};