loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.332.2.1, 2004/08/29 08:17:22	version 1.332.2.2, 2004/10/18 19:50:43
Line 1529 sub whichuser {	Line 1529 sub whichuser {
if (defined($ENV{'form.grade_symb'})) {	if (defined($ENV{'form.grade_symb'})) {
my $tmp_courseid=$ENV{'form.grade_courseid'};	my $tmp_courseid=$ENV{'form.grade_courseid'};
my $allowed=&Apache::lonnet::allowed('vgr',$tmp_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) {	if ($allowed) {
$symb=$ENV{'form.grade_symb'};	$symb=$ENV{'form.grade_symb'};
$courseid=$ENV{'form.grade_courseid'};	$courseid=$ENV{'form.grade_courseid'};