loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.144, 2002/01/02 13:18:26	version 1.145, 2002/01/03 16:18:00
Line 54	Line 54
# Dec Guy Albertelli	# Dec Guy Albertelli
# YEAR=2002	# YEAR=2002
# 1/1 Gerd Kortemeyer	# 1/1 Gerd Kortemeyer
	# 1/2 Matthew Hall
	# 1/3 Gerd Kortemeyer
#	#

package Apache::lonxml;	package Apache::lonxml;
Line 288 sub printtokenheader {	Line 290 sub printtokenheader {
$reply{'generation'};	$reply{'generation'};

if ($target eq 'web') {	if ($target eq 'web') {
	my %idhash=&Apache::lonnet::idrget($tudom,($tuname));
return	return
'<img align="right" src="/cgi-bin/barcode.gif?encode='.$token.'" />'.	'<img align="right" src="/cgi-bin/barcode.gif?encode='.$token.'" />'.
'Checked out for '.$plainname.	'Checked out for '.$plainname.
'<br />User: '.$tuname.' at '.$tudom.	'<br />User: '.$tuname.' at '.$tudom.
	'<br />ID: '.$idhash{$tuname}.
'<br />CourseID: '.$tcrsid.	'<br />CourseID: '.$tcrsid.
	'<br />Course: '.$ENV{'course.'.$tcrsid.'.description'}.
'<br />DocID: '.$token.	'<br />DocID: '.$token.
'<br />Time: '.localtime().'<hr />';	'<br />Time: '.localtime().'<hr />';
} else {	} else {