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"; |