loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.280, 2002/09/14 18:57:59	version 1.281, 2002/09/16 13:04:16
Line 871 sub countacc {	Line 871 sub countacc {
my $url=&declutter(shift);	my $url=&declutter(shift);
unless ($ENV{'request.course.id'}) { return ''; }	unless ($ENV{'request.course.id'}) { return ''; }
$accesshash{$ENV{'request.course.id'}.'___'.$url.'___course'}=1;	$accesshash{$ENV{'request.course.id'}.'___'.$url.'___course'}=1;
my $key=$processmarker.'_'.$dumpcount.'___'.$url.'___count';	my $key=$$.$processmarker.'_'.$dumpcount.'___'.$url.'___count';
if (defined($accesshash{$key})) {	if (defined($accesshash{$key})) {
$accesshash{$key}++;	$accesshash{$key}++;
} else {	} else {
Line 3349 BEGIN {	Line 3349 BEGIN {

%metacache=();	%metacache=();

$processmarker=$$.'_'.time.'_'.$perlvar{'lonHostID'};	$processmarker='_'.time.'_'.$perlvar{'lonHostID'};
$dumpcount=0;	$dumpcount=0;

&logtouch();	&logtouch();