--- loncom/lonnet/perl/lonnet.pm 2012/05/28 15:02:06 1.1172.2.2 +++ loncom/lonnet/perl/lonnet.pm 2012/05/28 12:23:03 1.1173 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1172.2.2 2012/05/28 15:02:06 raeburn Exp $ +# $Id: lonnet.pm,v 1.1173 2012/05/28 12:23:03 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -99,6 +99,7 @@ use File::MMagic; use LONCAPA qw(:DEFAULT :match); use LONCAPA::Configuration; use LONCAPA::lonmetadata; +use LONCAPA::Lond; use File::Copy; @@ -3960,7 +3961,7 @@ my $cachedtime=(); sub load_all_first_access { my ($uname,$udom)=@_; if (($cachedkey eq $uname.':'.$udom) && - (abs($cachedtime-time)<5) && (!$env{'form.markaccess'})) { + (abs($cachedtime-time)<5)) { return; } $cachedtime=time;