|
version 1.29, 2002/08/18 21:45:41
|
version 1.31, 2002/10/10 19:05:32
|
|
Line 202 sub handler {
|
Line 202 sub handler {
|
| } |
} |
| $currenturl=~s/^http\:\/\///; |
$currenturl=~s/^http\:\/\///; |
| $currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
| unless (($currenturl=~/^\/res\//) || |
unless ($currenturl=~/^\/(res|adm\/wrapper|public|adm\/coursedocs)\//) { |
| ($currenturl=~/^\/adm\/wrapper\//)) { |
|
| my $last; |
my $last; |
| if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
| &GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
|
Line 286 sub handler {
|
Line 285 sub handler {
|
| # ============================================== Do not return before this line |
# ============================================== Do not return before this line |
| if ($redirecturl) { |
if ($redirecturl) { |
| # ----------------------------------------------------- There is a URL to go to |
# ----------------------------------------------------- There is a URL to go to |
| |
# ------------------------------------------------- Check for critical messages |
| |
if ((time-$ENV{'user.criticalcheck.time'})>300) { |
| |
my @what=&Apache::lonnet::dump |
| |
('critical',$ENV{'user.domain'}, |
| |
$ENV{'user.name'}); |
| |
if ($what[0]) { |
| |
if (($what[0] ne 'con_lost') && |
| |
($what[0]!~/^error\:/)) { |
| |
$redirecturl='/adm/email?critical=display'; |
| |
} |
| |
} |
| |
&Apache::lonnet::appenv('user.criticalcheck.time'=>time); |
| |
} |
| |
|
| $r->content_type('text/html'); |
$r->content_type('text/html'); |
| $r->header_out(Location => |
$r->header_out(Location => |
| 'http://'.$ENV{'HTTP_HOST'}.$redirecturl); |
'http://'.$ENV{'HTTP_HOST'}.$redirecturl); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpageflip.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat