--- rat/lonambiguous.pm	2002/08/12 18:21:42	1.5
+++ rat/lonambiguous.pm	2003/01/14 18:47:50	1.8
@@ -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.8 2003/01/14 18:47:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -38,6 +38,16 @@ use Apache::lonnet;
 use Apache::Constants qw(:common REDIRECT);
 use GDBM_File;
 
+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
 
@@ -63,9 +73,7 @@ sub handler {
    }
 
 # ---------------------------------------------------------- Is this selecting?
-   
-   my %bighash;
-
+ 
    if ($ENV{'form.selecturl'}) {
        my $envkey;
        if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
@@ -134,7 +142,7 @@ sub handler {
    if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
                     &GDBM_READER(),0640)) {
 # ---------------------------------------------- Get ID(s) for current resource
-      my $ids=$bighash{'ids_/res/'.$thisfn};
+      my $ids=$bighash{'ids_'.&Apache::lonnet::clutter($thisfn)};
       if ($ids) {
 # ------------------------------------------------------------------- Has ID(s)
          my @possibilities=split(/\,/,$ids);