--- loncom/metadata_database/cleanup_database.pl	2002/07/25 15:31:10	1.1
+++ loncom/metadata_database/cleanup_database.pl	2003/02/03 05:17:50	1.3
@@ -1,8 +1,8 @@
 #!/usr/bin/perl
 # The LearningOnline Network
-# searchcat.pl "Search Catalog" batch script
+# cleanup_database.pl Remove stale temporary search results.
 #
-# $Id: cleanup_database.pl,v 1.1 2002/07/25 15:31:10 matthew Exp $
+# $Id: cleanup_database.pl,v 1.3 2003/02/03 05:17:50 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -103,8 +103,7 @@ ENDHELP
 }
 
 # ---------------  Read loncapa_apache.conf and loncapa.conf and get variables
-my %perlvar = %{&LONCAPA::Configuration::read_conf('loncapa_apache.conf',
-                                                   'loncapa.conf')};
+my %perlvar = %{&LONCAPA::Configuration::read_conf('loncapa.conf')};
 delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
 
 my $dbh;