|
version 1.1172.2.15, 2012/12/31 14:59:54
|
version 1.1172.2.16, 2013/01/03 19:59:47
|
|
Line 6851 sub constructaccess {
|
Line 6851 sub constructaccess {
|
| if (($allowed eq 'F') || ($allowed eq 'U')) { |
if (($allowed eq 'F') || ($allowed eq 'U')) { |
| # Grant temporary access |
# Grant temporary access |
| my $then=$env{'user.login.time'}; |
my $then=$env{'user.login.time'}; |
| my $update==$env{'user.update.time'}; |
my $update=$env{'user.update.time'}; |
| if (!$update) { $update = $then; } |
if (!$update) { $update = $then; } |
| my $refresh=$env{'user.refresh.time'}; |
my $refresh=$env{'user.refresh.time'}; |
| if (!$refresh) { $refresh = $update; } |
if (!$refresh) { $refresh = $update; } |
![[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