version 1.80.8.6, 2014/06/26 18:28:25
|
version 1.83, 2013/11/28 02:23:25
|
Line 36 use LONCAPA;
|
Line 36 use LONCAPA;
|
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonlocal; |
|
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
|
|
Line 283 sub handler {
|
Line 282 sub handler {
|
|
|
return REDIRECT; |
return REDIRECT; |
} |
} |
if ($direction eq 'return') { |
if ($direction eq 'return') { |
# -------------------------------------------------------- Return to last known |
# -------------------------------------------------------- Return to last known |
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', |
Line 306 sub handler {
|
Line 305 sub handler {
|
untie %hash; |
untie %hash; |
} else { |
} else { |
$newloc='/adm/navmaps'; |
$newloc='/adm/navmaps'; |
} |
} |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
&Apache::lonnet::absolute_url().$newloc); |
&Apache::lonnet::absolute_url().$newloc); |
|
|
return REDIRECT; |
return REDIRECT; |
} |
} |
$currenturl=~s/^https?\:\/\///; |
$currenturl=~s/^https?\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
Line 328 sub handler {
|
Line 327 sub handler {
|
if ($last) { |
if ($last) { |
$currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]); |
$currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]); |
} else { |
} else { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
&Apache::lonnet::absolute_url(). |
&Apache::lonnet::absolute_url(). |
'/adm/noidea.html'); |
'/adm/noidea.html'); |
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
# ------------------------------------------- Do we have any idea where we are? |
# ------------------------------------------- Do we have any idea where we are? |
Line 405 sub handler {
|
Line 404 sub handler {
|
if ($direction eq 'back') { |
if ($direction eq 'back') { |
&Apache::lonnet::linklog($redirecturl,$currenturl); |
&Apache::lonnet::linklog($redirecturl,$currenturl); |
} |
} |
# ------------------------------------- Check for and display critical messages |
# ------------------------------------------------- Check for critical messages |
my ($redirect, $url) = &Apache::loncommon::critical_redirect(300); |
if ((time-$env{'user.criticalcheck.time'})>300) { |
unless ($redirect) { |
my @what=&Apache::lonnet::dump |
$url=&Apache::lonnet::absolute_url().$redirecturl; |
('critical',$env{'user.domain'}, |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$env{'user.name'}); |
} |
if ($what[0]) { |
&Apache::loncommon::content_type($r,'text/html'); |
if (($what[0] ne 'con_lost') && |
|
($what[0]!~/^error\:/)) { |
|
$redirecturl='/adm/email?critical=display'; |
|
$redirectsymb=''; |
|
} |
|
} |
|
&Apache::lonnet::appenv({'user.criticalcheck.time'=>time}); |
|
} |
|
|
|
&Apache::loncommon::content_type($r,'text/html'); |
|
my $url=&Apache::lonnet::absolute_url().$redirecturl; |
|
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$r->header_out(Location => $url); |
$r->header_out(Location => $url); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
Line 461 ENDSTART
|
Line 471 ENDSTART
|
&Apache::loncommon::start_page('No Resource') |
&Apache::loncommon::start_page('No Resource') |
.'<h2>'.$lt{'title'}.'</h2>' |
.'<h2>'.$lt{'title'}.'</h2>' |
.'<p>'.$lt{'explain'}.'</p>'); |
.'<p>'.$lt{'explain'}.'</p>'); |
} |
} |
$r->print( |
$r->print( |
&Apache::lonhtmlcommon::actionbox( |
&Apache::lonhtmlcommon::actionbox( |
['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>', |
['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>', |