Changeset 22485 for main/trunk/greenstone2/perllib/buildConfigxml.pm

Timestamp:

2010-07-22T18:55:18+12:00 (14 years ago)

Author:

ak19

Message:

1. Dr Bainbridge fixed the database perl modules to all have the method read_info_keys (which reads the keys from the database into a map), so that dbutil.pm can have the same as a generic method. 2. buildConfigxml.pm only writes out the defaultIndex if it is set (to prevent an Uninitialised Variable warning message from Perl).

File:

• main/trunk/greenstone2/perllib/buildConfigxml.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/buildConfigxml.pm

@@ -331 +331 @@
 
     
-    &write_line('COLCFG', ["<defaultIndex shortname=\"", $defaultindex, "\" />"]);
+    #$defaultindex = "ZZ" if (!$defaultindex); # index allfields by default
+    if($defaultindex) {
+    &write_line('COLCFG', ["<defaultIndex shortname=\"", $defaultindex, "\" />"]);
+    }