loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.261, 2003/06/10 14:33:32	version 1.262, 2003/06/10 18:17:03
Line 1438 sub description {	Line 1438 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 ($passedsymb)=@_;
my ($symb,$courseid,$domain,$name,$publicuser);	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'};
Line 1449 sub whichuser {	Line 1450 sub whichuser {
$name=$ENV{'form.grade_username'};	$name=$ENV{'form.grade_username'};
}	}
} else {	} else {
$symb=&Apache::lonnet::symbread();	if (!$passedsymb) {
	$symb=&Apache::lonnet::symbread();
	} else {
	$symb=$passedsymb;
	}
$courseid=$ENV{'request.course.id'};	$courseid=$ENV{'request.course.id'};
$domain=$ENV{'user.domain'};	$domain=$ENV{'user.domain'};
$name=$ENV{'user.name'};	$name=$ENV{'user.name'};