version 1.38, 2003/02/03 18:03:52
|
version 1.40, 2003/04/02 14:57:32
|
Line 176 sub handler {
|
Line 176 sub handler {
|
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
&Apache::lonnet::countacc($requrl); |
&Apache::lonnet::countacc($requrl); |
$requrl=~/\.(\w+)$/; |
$requrl=~/\.(\w+)$/; |
if (&Apache::loncommon::fileembstyle($1) eq 'ssi') { |
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
|
($requrl=~/^\/adm\/(aboutme|navmaps|smppg|bulletinboard|wrapper)/) || |
|
($requrl=~/^\/public\/.*\/syllabus$/)) { |
# ------------------------------------- This is serious stuff, get symb and log |
# ------------------------------------- This is serious stuff, get symb and log |
my $query=$r->args; |
my $query=$r->args; |
my $symb; |
my $symb; |
Line 226 sub handler {
|
Line 228 sub handler {
|
# -------------------------------------------------------------- Not authorized |
# -------------------------------------------------------------- Not authorized |
$requrl=~/\.(\w+)$/; |
$requrl=~/\.(\w+)$/; |
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
($requrl=~/^\/adm\/(roles|logout)/) || |
($requrl=~/^\/adm\/(roles|logout|email)/) || |
($requrl=~m|^/prtspool/|)) { |
($requrl=~m|^/prtspool/|)) { |
# -------------------------- Store where they wanted to go and get login screen |
# -------------------------- Store where they wanted to go and get login screen |
$ENV{'request.firsturl'}=$requrl; |
$ENV{'request.querystring'}=$r->args; |
|
$ENV{'request.firsturl'}=$requrl; |
return FORBIDDEN; |
return FORBIDDEN; |
} else { |
} else { |
# --------------------------------------------------------------------- Goodbye |
# --------------------------------------------------------------------- Goodbye |