--- rat/lonambiguous.pm 2002/08/12 18:21:42 1.5 +++ 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.5 2002/08/12 18:21:42 albertel Exp $ +# $Id: lonambiguous.pm,v 1.21 2006/09/19 19:03:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,11 +25,6 @@ # # http://www.lon-capa.org/ # -# (TeX Content Handler -# -# 05/29/00,05/30,10/11 Gerd Kortemeyer) -# -# 10/11,10/12,10/16 Gerd Kortemeyer package Apache::lonambiguous; @@ -37,50 +32,70 @@ use strict; use Apache::lonnet; use Apache::Constants qw(:common REDIRECT); use GDBM_File; +use Apache::loncommon; +use Apache::lonlocal; + +my %bighash; +sub cleanup { + if (tied(%bighash)){ + &Apache::lonnet::logthis('Cleanup ambiguous: bighash'); + unless (untie(%bighash)) { + &Apache::lonnet::logthis('Failed cleanup ambiguous: bighash'); + } + } + return OK; +} # ----------------------------------------------------------- Could not resolve sub getlost { my ($r,$errmsg)=@_; - $r->content_type('text/html'); + $errmsg=&mt($errmsg); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; - $r->print( - '
'.$errmsg. - '