|
version 1.159.2.9, 2020/03/06 20:17:52
|
version 1.159.2.10, 2020/05/02 20:39:07
|
|
Line 592 sub handler {
|
Line 592 sub handler {
|
| |
|
| # ---------------------------------------------------------------- Check access |
# ---------------------------------------------------------------- Check access |
| my $now = time; |
my $now = time; |
| if ($requrl !~ m{^/(?:adm|public|prtspool)/} |
if ($requrl !~ m{^/(?:adm|public|(?:prt|zip)spool)/} |
| || $requrl =~ /^\/adm\/.*\/(smppg|bulletinboard)(\?|$ )/x) { |
|| $requrl =~ /^\/adm\/.*\/(smppg|bulletinboard)(\?|$ )/x) { |
| my $access=&Apache::lonnet::allowed('bre',$requrl); |
my $access=&Apache::lonnet::allowed('bre',$requrl); |
| if ($handle eq '') { |
if ($handle eq '') { |
![[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