--- rat/lonambiguous.pm 2006/03/19 23:06:00 1.18 +++ rat/lonambiguous.pm 2006/09/19 19:03:27 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to resolve ambiguous file locations # -# $Id: lonambiguous.pm,v 1.18 2006/03/19 23:06:00 albertel Exp $ +# $Id: lonambiguous.pm,v 1.21 2006/09/19 19:03:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -56,7 +56,7 @@ sub getlost { $r->send_http_header; $r->print(&Apache::loncommon::start_page('Could not handle ambiguous resource reference'). $errmsg. - (&Apache::loncommon::end_page()); + &Apache::loncommon::end_page()); } # ================================================================ Main Handler @@ -95,7 +95,7 @@ sub handler { $resurl => [$resurl,$resid]); untie(%bighash); $r->header_out(Location => - 'http://'.$ENV{'HTTP_HOST'}.$resurl); + &Apache::lonnet::absolute_url().$resurl); return REDIRECT; } } @@ -134,7 +134,7 @@ sub handler { # ----------------------------------- Okay, this should have appeared on a page &Apache::loncommon::content_type($r,'text/html'); $r->header_out(Location => - 'http://'.$ENV{'HTTP_HOST'}. + &Apache::lonnet::absolute_url(). &Apache::lonnet::clutter($page)); return REDIRECT; } else { @@ -146,7 +146,8 @@ sub handler { # ------------------------------------Encrypted requests go straight to navmaps if ($env{'request.enc'}) { &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; } # ------------------------------------------------ Would be standalone resource @@ -178,9 +179,9 @@ sub handler { my $mapurl=$bighash{'map_id_'.(split(/\./,$id))[0]}; my $symb=&make_symb($id); &Apache::loncommon::content_type($r,'text/html'); - &Apache::lonnet::logthis('http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb); $r->header_out(Location => - 'http://'.$ENV{'HTTP_HOST'}.$resurl.'?symb='.$symb); + &Apache::lonnet::absolute_url(). + $resurl.'?symb='.$symb); return REDIRECT; } if ($#possibilities>0) {