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.' - '. |