loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.117, 2001/08/17 19:50:28	version 1.118, 2001/08/18 15:49:28
Line 13	Line 13
# 6/12,6/13 H. K. Ng	# 6/12,6/13 H. K. Ng
# 6/16 Gerd Kortemeyer	# 6/16 Gerd Kortemeyer
# 7/27 H. K. Ng	# 7/27 H. K. Ng
# 8/7,8/9,8/10,8/11,8/15,8/16,8/17 Gerd Kortemeyer	# 8/7,8/9,8/10,8/11,8/15,8/16,8/17,8/18 Gerd Kortemeyer

package Apache::lonxml;	package Apache::lonxml;
use vars	use vars
Line 153 sub xmlend {	Line 153 sub xmlend {
}	}

sub maketoken {	sub maketoken {
my ($target,$symb,$tuname,$tudom,$tcrsid)=@_;	my ($symb,$tuname,$tudom,$tcrsid)=@_;
unless ($symb) {	unless ($symb) {
$symb=&Apache::lonnet::symbread();	$symb=&Apache::lonnet::symbread();
}	}
Line 163 sub maketoken {	Line 163 sub maketoken {
$tcrsid=$ENV{'request.course.id'};	$tcrsid=$ENV{'request.course.id'};
}	}

my $token=&Apache::lonnet::checkout($symb,$tuname,$tudom,$tcrsid);	return &Apache::lonnet::checkout($symb,$tuname,$tudom,$tcrsid);
	}

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

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

my %reply=&Apache::lonnet::get('environment',	my %reply=&Apache::lonnet::get('environment',
['firstname','middlename','lastname','generation'],	['firstname','middlename','lastname','generation'],
$tudom,$tuname);	$tudom,$tuname);