loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.244, 2003/04/03 21:58:09	version 1.245, 2003/04/03 22:25:49
Line 1391 sub description {	Line 1391 sub description {
# calls to lonnet functions for this setup.	# calls to lonnet functions for this setup.
# - looks for form.grade_ parameters	# - looks for form.grade_ parameters
sub whichuser {	sub whichuser {
my ($symb,$courseid,$domain,$name);	my ($symb,$courseid,$domain,$name,$publicuser);
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('mgr',$tmp_courseid);	my $allowed=&Apache::lonnet::allowed('mgr',$tmp_courseid);
Line 1413 sub whichuser {	Line 1413 sub whichuser {
$name.=$ENV{'form.username'};	$name.=$ENV{'form.username'};
}	}
}	}
return ($symb,$courseid,$domain,$name);	return ($symb,$courseid,$domain,$name,$publicuser);
}	}

1;	1;