loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.112, 2001/08/15 14:03:03	version 1.113, 2001/08/15 14:22:07
Line 171 sub checkout {	Line 171 sub checkout {
time.'&'.$ENV{'REMOTE_ADDR'});	time.'&'.$ENV{'REMOTE_ADDR'});
my $token=Apache::lonnet::reply('tmpput:'.$infostr,$lonhost);	my $token=Apache::lonnet::reply('tmpput:'.$infostr,$lonhost);
if ($token=~/^error\:/) { return ''; }	if ($token=~/^error\:/) { return ''; }
$token=~s/^(\d+)\_.*\_(\d+)$/$1\_$2\_$lonhost/;	$token=~s/^(\d+)\_.\_(\d+)$/$1\$2\*$lonhost/;
	$token=~tr/a-z/A-Z/;
if (&Apache::lonnet::log($tudom,$tuname,	if (&Apache::lonnet::log($tudom,$tuname,
&Apache::lonnet::homeserver($tuname,$tudom),	&Apache::lonnet::homeserver($tuname,$tudom),
&Apache::lonnet::escape('Checkout '.$infostr.' - '.	&Apache::lonnet::escape('Checkout '.$infostr.' - '.