--- loncom/metadata_database/searchcat.pl	2002/05/17 14:03:04	1.18
+++ loncom/metadata_database/searchcat.pl	2002/09/09 14:00:24	1.20
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # searchcat.pl "Search Catalog" batch script
 #
-# $Id: searchcat.pl,v 1.18 2002/05/17 14:03:04 matthew Exp $
+# $Id: searchcat.pl,v 1.20 2002/09/09 14:00:24 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -56,8 +56,7 @@ sub wanted {
 }
 
 # ---------------  Read loncapa_apache.conf and loncapa.conf and get variables
-my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf',
-                                                 'loncapa.conf');
+my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
 my %perlvar=%{$perlvarref};
 undef $perlvarref; # remove since sensitive and not needed
 delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
@@ -74,6 +73,19 @@ my $dbh;
 	print "Cannot connect to database!\n";
 	exit;
     }
+    my $make_metadata_table = "CREATE TABLE IF NOT EXISTS metadata (".
+        "title TEXT, author TEXT, subject TEXT, url TEXT, keywords TEXT, ".
+        "version TEXT, notes TEXT, abstract TEXT, mime TEXT, language TEXT, ".
+        "creationdate DATETIME, lastrevisiondate DATETIME, owner TEXT, ".
+        "copyright TEXT, FULLTEXT idx_title (title), ".
+        "FULLTEXT idx_author (author), FULLTEXT idx_subject (subject), ".
+        "FULLTEXT idx_url (url), FULLTEXT idx_keywords (keywords), ".
+        "FULLTEXT idx_version (version), FULLTEXT idx_notes (notes), ".
+        "FULLTEXT idx_abstract (abstract), FULLTEXT idx_mime (mime), ".
+        "FULLTEXT idx_language (language), FULLTEXT idx_owner (owner), ".
+        "FULLTEXT idx_copyright (copyright)) TYPE=MYISAM";
+    # It would sure be nice to have some logging mechanism.
+    $dbh->do($make_metadata_table);
 }
 
 # ------------------------------------------------------------- get .meta files