![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.1173, 2012/05/28 12:23:03 | version 1.1174, 2012/05/28 12:28:14 |
|---|---|
| Line 3961 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)) { | (abs($cachedtime-time)<5) && (!$env{'form.markaccess'})) { |
| return; | return; |
| } | } |
| $cachedtime=time; | $cachedtime=time; |