loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1153, 2012/02/15 21:56:25	version 1.1154, 2012/02/16 19:31:14
Line 3870 my %cachedtimes=();	Line 3870 my %cachedtimes=();
my $cachedtime=();	my $cachedtime=();

sub load_all_first_access {	sub load_all_first_access {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
if (($cachedkey eq $uname.':'.$udom) && (abs($cachedtime-time)<5)) { return; };	if (($cachedkey eq $uname.':'.$udom.':'.$courseid) &&
$cachedtime=time;	(abs($cachedtime-time)<5)) {
$cachedkey=$uname.':'.$udom;	return;
%cachedtimes=&dump('firstaccesstimes',$udom,$uname);	}
	$cachedtime=time;
	$cachedkey=$uname.':'.$udom;
	%cachedtimes=&dump('firstaccesstimes',$udom,$uname);
}	}

sub get_first_access {	sub get_first_access {