version 1.80.8.7, 2015/03/14 22:29:25
|
version 1.88, 2015/03/14 22:26:50
|
Line 305 sub handler {
|
Line 305 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 328 sub handler {
|
Line 328 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 350 sub handler {
|
Line 350 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 429 sub handler {
|
Line 429 sub handler {
|
} |
} |
# ------------------------------------- Check for and display critical messages |
# ------------------------------------- Check for and display critical messages |
my ($redirect, $url) = &Apache::loncommon::critical_redirect(300); |
my ($redirect, $url) = &Apache::loncommon::critical_redirect(300); |
unless ($redirect) { |
unless ($redirect) { |
$url=&Apache::lonnet::absolute_url().$redirecturl; |
$url=&Apache::lonnet::absolute_url().$redirecturl; |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
$url = &add_get_param($url, { 'symb' => $redirectsymb}); |
} |
} |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => $url); |
$r->header_out(Location => $url); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
Line 483 ENDSTART
|
Line 483 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>', |