version 1.53, 2005/04/07 06:56:27
|
version 1.55, 2005/08/02 21:15:52
|
Line 171 sub move {
|
Line 171 sub move {
|
return ($next,$mapurl); |
return ($next,$mapurl); |
} |
} |
|
|
|
sub navlaunch { |
|
my ($r)=@_; |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
&Apache::loncommon::no_cache($r); |
|
$r->send_http_header; |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print("$html<head>\n"); |
|
$r->print('</head>'. |
|
&Apache::loncommon::bodytag('Launched')); |
|
$r->print(<<ENDNAV); |
|
<p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p> |
|
<script type="text/javascript"> |
|
function collapse() { |
|
menu=window.open("/adm/navmaps?collapseExternal","loncapanav", |
|
"height=600,width=400,scrollbars=1"); |
|
this.document.location='/adm/navmaps?turningOffExternal'; |
|
} |
|
</script> |
|
<p><a href="javascript:collapse();">Collapse external navigation window</a></p> |
|
ENDNAV |
|
$r->print(&Apache::loncommon::endbodytag().'</html>'); |
|
} |
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
sub handler { |
sub handler { |
Line 199 sub handler {
|
Line 221 sub handler {
|
$currenturl=&Apache::lonenc::unencrypted($currenturl); |
$currenturl=&Apache::lonenc::unencrypted($currenturl); |
} |
} |
$currenturl=~s/\.\d+\.(\w+)$/\.$1/; |
$currenturl=~s/\.\d+\.(\w+)$/\.$1/; |
if ($direction eq 'return') { |
if ($direction eq 'firstres') { |
|
my $furl; |
|
if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
|
&GDBM_READER(),0640)) { |
|
$furl=$bighash{'first_url'}; |
|
untie(%bighash); |
|
} |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => |
|
'http://'.$ENV{'HTTP_HOST'}.$furl); |
|
|
|
return REDIRECT; |
|
} |
|
if ($direction eq 'return' || $direction eq 'navlaunch') { |
# -------------------------------------------------------- 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 223 sub handler {
|
Line 258 sub handler {
|
} else { |
} else { |
$newloc='/adm/noidea.html'; |
$newloc='/adm/noidea.html'; |
} |
} |
&Apache::loncommon::content_type($r,'text/html'); |
if ($newloc eq '/adm/noidea.html' && $direction eq 'navlaunch') { |
$r->header_out(Location => |
&navlaunch($r); |
'http://'.$ENV{'HTTP_HOST'}.$newloc); |
return OK; |
|
} else { |
return REDIRECT; |
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => |
|
'http://'.$ENV{'HTTP_HOST'}.$newloc); |
|
|
|
return REDIRECT; |
|
} |
} |
} |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
Line 244 sub handler {
|
Line 284 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'); |
if ($direction eq 'return') { |
$r->header_out(Location => |
&Apache::loncommon::content_type($r,'text/html'); |
'http://'.$ENV{'HTTP_HOST'}.'/adm/noidea.html'); |
$r->header_out(Location => |
return REDIRECT; |
'http://'.$ENV{'HTTP_HOST'}.'/adm/noidea.html'); |
|
return REDIRECT; |
|
} else { |
|
&navlaunch($r); |
|
return OK; |
|
} |
} |
} |
} |
} |
# ------------------------------------------- Do we have any idea where we are? |
# ------------------------------------------- Do we have any idea where we are? |