version 1.39, 2003/02/28 18:14:44
|
version 1.40, 2003/04/02 14:57:32
|
Line 228 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 |