loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.344, 2004/10/12 22:55:22	version 1.345, 2004/10/18 19:49:58
Line 1573 sub whichuser {	Line 1573 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'};