--- rat/lonambiguous.pm 2002/08/12 18:21:42 1.5 +++ rat/lonambiguous.pm 2003/04/12 15:43:58 1.9 @@ -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.9 2003/04/12 15:43:58 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,7 +37,18 @@ use strict; use Apache::lonnet; use Apache::Constants qw(:common REDIRECT); use GDBM_File; +use Apache::loncommon; +my %bighash; + +sub cleanup { + if (tied(%bighash)){ + &Apache::lonnet::logthis('Cleanup ambiguous: bighash'); + unless (untie(%bighash)) { + &Apache::lonnet::logthis('Failed cleanup ambiguous: bighash'); + } + } +} # ----------------------------------------------------------- Could not resolve @@ -46,8 +57,9 @@ sub getlost { $r->content_type('text/html'); $r->send_http_header; $r->print( - '
'.$errmsg. + '