loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.132, 2001/10/01 20:06:45	version 1.133, 2001/10/03 12:34:10
Line 219 sub maketoken {	Line 219 sub maketoken {
}	}

sub printtokenheader {	sub printtokenheader {
my ($target,$token,$symb,$tuname,$tudom,$tcrsid)=@_;	my ($target,$token,$tsymb,$tcrsid,$tudom,$tuname)=@_;
unless ($token) { return ''; }	unless ($token) { return ''; }

unless ($symb) {	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
$symb=&Apache::lonnet::symbread();	unless ($tsymb) {
	$tsymb=$symb;
}	}
unless ($tuname) {	unless ($tuname) {
$tuname=$ENV{'user.name'};	$tuname=$name;
$tudom=$ENV{'user.domain'};	$tudom=$domain;
$tcrsid=$ENV{'request.course.id'};	$tcrsid=$courseid;
}	}

my %reply=&Apache::lonnet::get('environment',	my %reply=&Apache::lonnet::get('environment',