version 1.19, 2006/03/19 23:09:07
|
version 1.22, 2008/11/11 16:06:46
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
|
|
=head1 NAME |
|
|
|
Apache::lonambiguous |
|
|
|
=head1 SYNOPSIS |
|
|
|
Handler to resolve ambiguous file locations. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 HANDLER SUBROUTINE |
|
|
|
make_symb() |
|
|
|
and |
|
|
|
handler() |
|
|
|
=head1 OTHER SUBROUTINES |
|
|
|
=over |
|
|
|
=item * |
|
|
|
cleanup() |
|
|
|
=item * |
|
|
|
getlost() |
|
|
|
=back |
|
|
|
=cut |
|
|
package Apache::lonambiguous; |
package Apache::lonambiguous; |
|
|
use strict; |
use strict; |
Line 95 sub handler {
|
Line 131 sub handler {
|
$resurl => [$resurl,$resid]); |
$resurl => [$resurl,$resid]); |
untie(%bighash); |
untie(%bighash); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$resurl); |
&Apache::lonnet::absolute_url().$resurl); |
return REDIRECT; |
return REDIRECT; |
} |
} |
} |
} |
Line 134 sub handler {
|
Line 170 sub handler {
|
# ----------------------------------- Okay, this should have appeared on a page |
# ----------------------------------- Okay, this should have appeared on a page |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}. |
&Apache::lonnet::absolute_url(). |
&Apache::lonnet::clutter($page)); |
&Apache::lonnet::clutter($page)); |
return REDIRECT; |
return REDIRECT; |
} else { |
} else { |
Line 146 sub handler {
|
Line 182 sub handler {
|
# ------------------------------------Encrypted requests go straight to navmaps |
# ------------------------------------Encrypted requests go straight to navmaps |
if ($env{'request.enc'}) { |
if ($env{'request.enc'}) { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.'/adm/navmaps'); |
$r->header_out(Location => |
|
&Apache::lonnet::absolute_url().'/adm/navmaps'); |
return REDIRECT; |
return REDIRECT; |
} |
} |
# ------------------------------------------------ Would be standalone resource |
# ------------------------------------------------ Would be standalone resource |
Line 178 sub handler {
|
Line 215 sub handler {
|
my $mapurl=$bighash{'map_id_'.(split(/\./,$id))[0]}; |
my $mapurl=$bighash{'map_id_'.(split(/\./,$id))[0]}; |
my $symb=&make_symb($id); |
my $symb=&make_symb($id); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::lonnet::logthis('http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb); |
|
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb); |
&Apache::lonnet::absolute_url(). |
|
$resurl.'?symb='.$symb); |
return REDIRECT; |
return REDIRECT; |
} |
} |
if ($#possibilities>0) { |
if ($#possibilities>0) { |