--- rat/lonambiguous.pm 2006/08/18 20:24:53 1.20 +++ rat/lonambiguous.pm 2008/11/11 16:06:46 1.22 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to resolve ambiguous file locations # -# $Id: lonambiguous.pm,v 1.20 2006/08/18 20:24:53 albertel Exp $ +# $Id: lonambiguous.pm,v 1.22 2008/11/11 16:06:46 jms Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,6 +26,42 @@ # 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; use strict; @@ -95,7 +131,7 @@ sub handler { $resurl => [$resurl,$resid]); untie(%bighash); $r->header_out(Location => - &Apache::loncommon::absolute_url().$resurl); + &Apache::lonnet::absolute_url().$resurl); return REDIRECT; } } @@ -134,7 +170,7 @@ sub handler { # ----------------------------------- Okay, this should have appeared on a page &Apache::loncommon::content_type($r,'text/html'); $r->header_out(Location => - &Apache::loncommon::absolute_url(). + &Apache::lonnet::absolute_url(). &Apache::lonnet::clutter($page)); return REDIRECT; } else { @@ -147,7 +183,7 @@ sub handler { if ($env{'request.enc'}) { &Apache::loncommon::content_type($r,'text/html'); $r->header_out(Location => - &Apache::loncommon::absolute_url().'/adm/navmaps'); + &Apache::lonnet::absolute_url().'/adm/navmaps'); return REDIRECT; } # ------------------------------------------------ Would be standalone resource @@ -180,7 +216,7 @@ sub handler { my $symb=&make_symb($id); &Apache::loncommon::content_type($r,'text/html'); $r->header_out(Location => - &Apache::loncommon::absolute_url(). + &Apache::lonnet::absolute_url(). $resurl.'?symb='.$symb); return REDIRECT; }