loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.133, 2001/10/03 12:34:10	version 1.134, 2001/10/03 13:34:22
Line 1165 sub description {	Line 1165 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=&Apache::lonnet::symbread();	my ($symb,$courseid,$domain,$name);
my $courseid=$ENV{'request.course.id'};
my $domain=$ENV{'user.domain'};
my $name=$ENV{'user.name'};
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 1178 sub whichuser {	Line 1175 sub whichuser {
$domain=$ENV{'form.grade_domain'};	$domain=$ENV{'form.grade_domain'};
$name=$ENV{'form.grade_username'};	$name=$ENV{'form.grade_username'};
}	}
	} else {
	$symb=&Apache::lonnet::symbread();
	$courseid=$ENV{'request.course.id'};
	$domain=$ENV{'user.domain'};
	$name=$ENV{'user.name'};
}	}
return ($symb,$courseid,$domain,$name);	return ($symb,$courseid,$domain,$name);
}	}