version 1.79.6.1, 2010/12/30 21:15:40
|
version 1.80.8.2, 2013/05/10 23:24:19
|
Line 222 sub navlaunch {
|
Line 222 sub navlaunch {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
$r->print(&Apache::loncommon::start_page('Launched')); |
$r->print(&Apache::loncommon::start_page('Launched')); |
$r->print(<<ENDNAV); |
$r->print(<<ENDNAV); |
<p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p> |
<p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p> |
<script type="text/javascript"> |
<script type="text/javascript"> |
function collapse() { |
function collapse() { |
menu=window.open("/adm/navmaps?collapseExternal","loncapanav", |
menu=window.open("/adm/navmaps?collapseExternal","loncapanav", |
"height=600,width=400,scrollbars=1"); |
"height=600,width=400,scrollbars=1"); |
this.document.location='/adm/navmaps?turningOffExternal'; |
this.document.location='/adm/navmaps?turningOffExternal'; |
} |
} |
</script> |
</script> |
<p><a href="javascript:collapse();">Collapse external navigation window</a></p> |
<p><a href="javascript:collapse();">Collapse external navigation window</a></p> |
ENDNAV |
ENDNAV |
Line 327 sub handler {
|
Line 327 sub handler {
|
} else { |
} else { |
$newloc='/adm/navmaps'; |
$newloc='/adm/navmaps'; |
} |
} |
if (($newloc =~ m{^/adm/navmaps}) && ($direction eq 'navlaunch')) { |
if (($newloc =~ m{^/adm/navmaps}) && ($direction eq 'navlaunch')) { |
&navlaunch($r); |
&navlaunch($r); |
return OK; |
return OK; |
} 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().$newloc); |
&Apache::lonnet::absolute_url().$newloc); |
|
|
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
$currenturl=~s/^https?\:\/\///; |
$currenturl=~s/^https?\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
Line 353 sub handler {
|
Line 353 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 { |
if ($direction eq 'return') { |
if ($direction eq 'return') { |
&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; |
} else { |
} else { |
&navlaunch($r); |
&navlaunch($r); |
return OK; |
return OK; |
} |
} |
} |
} |
} |
} |
# ------------------------------------------- Do we have any idea where we are? |
# ------------------------------------------- Do we have any idea where we are? |
Line 525 ENDMENU
|
Line 525 ENDMENU
|
} else { |
} else { |
# ---------------------------------------- No, could not determine where we are |
# ---------------------------------------- No, could not determine where we are |
$r->internal_redirect('/adm/ambiguous'); |
$r->internal_redirect('/adm/ambiguous'); |
|
return OK; |
} |
} |
} else { |
} else { |
# -------------------------- Class was not initialized or page fliped strangely |
# -------------------------- Class was not initialized or page fliped strangely |