loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1172.2.2, 2012/05/28 15:02:06	version 1.1173, 2012/05/28 12:23:03
Line 99 use File::MMagic;	Line 99 use File::MMagic;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
use LONCAPA::Configuration;	use LONCAPA::Configuration;
use LONCAPA::lonmetadata;	use LONCAPA::lonmetadata;
	use LONCAPA::Lond;

use File::Copy;	use File::Copy;

Line 3960 my $cachedtime=();	Line 3961 my $cachedtime=();
sub load_all_first_access {	sub load_all_first_access {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
if (($cachedkey eq $uname.':'.$udom) &&	if (($cachedkey eq $uname.':'.$udom) &&
(abs($cachedtime-time)<5) && (!$env{'form.markaccess'})) {	(abs($cachedtime-time)<5)) {
return;	return;
}	}
$cachedtime=time;	$cachedtime=time;