|
version 1.35, 2002/08/27 14:23:18
|
version 1.36, 2002/10/25 13:59:40
|
|
Line 155 sub handler {
|
Line 155 sub handler {
|
| |
|
| # ---------------------------------------------------------------- Check access |
# ---------------------------------------------------------------- Check access |
| |
|
| if ($requrl!~/^\/adm\//) { |
if ($requrl!~/^\/adm|public\//) { |
| 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