--- 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'};