|
version 1.168, 2017/12/21 22:06:44
|
version 1.169, 2018/01/12 13:33:46
|
|
Line 584 sub handler {
|
Line 584 sub handler {
|
| $env{'form.origurl'} = $r->uri; |
$env{'form.origurl'} = $r->uri; |
| } |
} |
| } |
} |
| |
if ($requrl=~m{^/+tiny/+$match_domain/+\w+$}) { |
| |
return OK; |
| |
} |
| # ---------------------------------------------------------------- Check access |
# ---------------------------------------------------------------- Check access |
| my $now = time; |
my $now = time; |
| if ($requrl !~ m{^/(?:adm|public|prtspool)/} |
if ($requrl !~ m{^/(?:adm|public|prtspool)/} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonacc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth