|
version 1.94, 2006/08/30 16:50:23
|
version 1.95, 2006/08/30 21:48:51
|
|
Line 239 sub handler {
|
Line 239 sub handler {
|
| |
|
| # ---------------------------------------------------------------- Check access |
# ---------------------------------------------------------------- Check access |
| my $now = time; |
my $now = time; |
| if ($requrl!~/^\/adm|public|prtspool\//) { |
if ($requrl !~ m{^/(?:adm|public|prtspool)/} |
| |
|| $requrl =~ /^\/adm\/.*\/(smppg|bulletinboard)(\?|$ )/x) { |
| my $access=&Apache::lonnet::allowed('bre',$requrl); |
my $access=&Apache::lonnet::allowed('bre',$requrl); |
| if ($access eq '1') { |
if ($access eq '1') { |
| $env{'user.error.msg'}="$requrl:bre:0:0:Choose Course"; |
$env{'user.error.msg'}="$requrl:bre:0:0:Choose Course"; |
![[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