loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.587.2.3.2.11, 2005/02/14 04:29:43	version 1.587.2.3.2.12, 2005/02/14 04:31:59
Line 782 sub getsection {	Line 782 sub getsection {
$courseid=~s/^(\w)/\/$1/;	$courseid=~s/^(\w)/\/$1/;

my $hashid="$udom:$unam:$courseid";	my $hashid="$udom:$unam:$courseid";
my ($result,$cached)=&is_cached_new('getsection',$hashid,1);	my ($result,$cached)=&is_cached_new('getsection',$hashid);
if (defined($cached)) { return $result; }	if (defined($cached)) { return $result; }

my %Pending;	my %Pending;
Line 1023 EVALBLOCK	Line 1023 EVALBLOCK
# &logthis("load_cache_item $name took ".(&Time::HiRes::time()-$starttime));	# &logthis("load_cache_item $name took ".(&Time::HiRes::time()-$starttime));
}	}

my $to_remember=10;	my $to_remember=20;
my %remembered;	my %remembered;
my %accessed;	my %accessed;
my $kicks=0;	my $kicks=0;