loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.114, 2001/08/15 15:49:14	version 1.115, 2001/08/15 23:19:20
Line 200 sub checkout {	Line 200 sub checkout {
$reply{'generation'};	$reply{'generation'};

if ($target eq 'web') {	if ($target eq 'web') {
return 'Checked out for '.$plainname.	return
	'<img align="right" src="/cgi-bin/barcode.gif?encode='.$token.'" />'.
	'Checked out for '.$plainname.
'<br />User: '.$tuname.' at '.$tudom.	'<br />User: '.$tuname.' at '.$tudom.
'<br />CourseID: '.$tcrsid.')'.	'<br />CourseID: '.$tcrsid.')'.
'<br />DocID: '.$token.	'<br />DocID: '.$token.
'<br />Time: '.localtime($now).	'<br />Time: '.localtime($now).'<hr />';
'<img align="right" src="/cgi-bin/barcode.gif?encode='.$token.'" /><hr />';
} else {	} else {
return $token;	return $token;
}	}