loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.152, 2001/08/18 14:17:50	version 1.153, 2001/08/18 14:58:15
Line 683 sub checkout {	Line 683 sub checkout {
$token=~s/^(\d+)\_.\_(\d+)$/$1\$2\*$lonhost/;	$token=~s/^(\d+)\_.\_(\d+)$/$1\$2\*$lonhost/;
$token=~tr/a-z/A-Z/;	$token=~tr/a-z/A-Z/;

my %infohash=('outtoken' => $token,	my %infohash=('resource.0.outtoken' => $token,
'checkouttime' => $now,	'resource.0.checkouttime' => $now,
'outremote' => $ENV{'REMOTE_ADDR'});	'resource.0.outremote' => $ENV{'REMOTE_ADDR'});

unless (&cstore(\%infohash,$symb,$tcrsid,$tudom,$tuname) eq 'ok') {	unless (&cstore(\%infohash,$symb,$tcrsid,$tudom,$tuname) eq 'ok') {
return '';	return '';
Line 719 sub checkin {	Line 719 sub checkin {
my ($tuname,$tudom,$tcrsid,$symb,$chtim,$rmaddr)=	my ($tuname,$tudom,$tcrsid,$symb,$chtim,$rmaddr)=
split(/\&/,&unescape(&reply('tmpget:'.$dtoken,$lonhost)));	split(/\&/,&unescape(&reply('tmpget:'.$dtoken,$lonhost)));

my %infohash=('intoken' => $token,	my %infohash=('resource.0.intoken' => $token,
'checkintime' => $now,	'resource.0.checkintime' => $now,
'inremote' => $ENV{'REMOTE_ADDR'});	'resource.0.inremote' => $ENV{'REMOTE_ADDR'});

unless (&cstore(\%infohash,$symb,$tcrsid,$tudom,$tuname) eq 'ok') {	unless (&cstore(\%infohash,$symb,$tcrsid,$tudom,$tuname) eq 'ok') {
return '';	return '';