--- loncom/interface/lonindexer.pm	2002/12/02 17:53:24	1.53
+++ loncom/interface/lonindexer.pm	2003/01/14 18:47:50	1.55
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.53 2002/12/02 17:53:24 albertel Exp $
+# $Id: lonindexer.pm,v 1.55 2003/01/14 18:47:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -919,6 +919,15 @@ sub setvalues {
 
 1;
 
+sub cleanup {
+    if (tied(%hash)){
+	&Apache::lonnet::logthis('Cleanup indexer: hash');
+        unless (untie(%hash)) {
+	    &Apache::lonnet::logthis('Failed cleanup indexer: hash');
+        }
+    }
+}
+
 =head1 NAME
 
 Apache::lonindexer - mod_perl module for cross server filesystem browsing