--- loncom/lonnet/perl/lonnet.pm 2012/05/21 18:35:30 1.1172 +++ loncom/lonnet/perl/lonnet.pm 2012/05/29 12:16:42 1.1172.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1172 2012/05/21 18:35:30 bisitz Exp $ +# $Id: lonnet.pm,v 1.1172.2.3 2012/05/29 12:16:42 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -97,7 +97,6 @@ use File::MMagic; use LONCAPA qw(:DEFAULT :match); use LONCAPA::Configuration; use LONCAPA::lonmetadata; -use LONCAPA::Lond; use File::Copy; @@ -2568,8 +2567,7 @@ sub ssi { } $request->header(Cookie => $ENV{'HTTP_COOKIE'}); - my $response=$ua->request($request); - + my $response= $ua->request($request); if (wantarray) { return ($response->content, $response); } else { @@ -3959,7 +3957,7 @@ my $cachedtime=(); sub load_all_first_access { my ($uname,$udom)=@_; if (($cachedkey eq $uname.':'.$udom) && - (abs($cachedtime-time)<5)) { + (abs($cachedtime-time)<5) && (!$env{'form.markaccess'})) { return; } $cachedtime=time;