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

Timestamp:

2012-08-09T17:20:51+12:00 (12 years ago)

Author:

ak19

Message:

Finally properly fixed the appearance and non-appearance of the quick search form. It should not appear if there are no query elements in the config file. However, even when no search indexes were built, query elements still came through in the XML and it was hard to distinguish at the XSLT stage whether any search indexes were built or not. Kathy suggested that the perl code writing out the buildconfig.xml should not write out the ServiceRacks for searching if no indexes were built and pointed out that the changes were required in buildconfigxml.pm which was called from basebuilder.pm to write out the buildConfig.xml file. Now the XSLT can at last do the right thing: it doesn't display the quick search area if there are no search elements, and doesn't provide the plain text query form in the quick search area if TextQuery isn't one of the query types, but does provide the buttons to other query types like form search if these are meant to be visible according to the SearchType format feature. If there are no search indexes built, then there is no quick search area.

File:

• main/trunk/greenstone2/perllib/buildConfigxml.pm (modified) (5 diffs)

main/trunk/greenstone2/perllib/buildConfigxml.pm

@@ -273 +273 @@
     }
     } else {
-    print STDERR "$maptype not defined";
-    }
-
+    print STDERR "$maptype not defined\n";
+    }
+
+    $settings->{'num_indexes'} = $buildcfg->{'num_indexes'};
     $settings->{'defaultindex'} = $defaultindex;
     $settings->{'indexmap'} = $indexmap;
@@ -352 +353 @@
     }
     # the default level assigned by the user is no longer ignored [Shaoqun], but the retrievel level stays the same. 
-        #if (defined $collectcfg->{"defaultlevel"}) {
-    $default_search_level = $levelmap->{$collectcfg->{"defaultlevel"}};
+    if (defined $collectcfg->{"defaultlevel"}) {
+        $default_search_level = $levelmap->{$collectcfg->{"defaultlevel"}};
         #  $default_retrieve_level = $default_search_level;
-    #}
+    }
     
     if (defined $buildcfg->{'textlevel'}) {
@@ -366 +367 @@
     $settings->{'levelmap'} = $levelmap;
     $settings->{'levellist'} = $levellist;
-    $settings->{'default_search_level'} = $default_search_level;
+    $settings->{'default_search_level'} = $default_search_level if $default_search_level;
     $settings->{'default_retrieve_level'} = $default_retrieve_level;
     $settings->{'default_db_level'} = $default_db_level;
@@ -383 +384 @@
     my $service_type = $settings->{'service_type'};
 
+    # there's no searching and therefore no search services if there are no indexes
+    return if($settings->{'num_indexes'} <= 0);
+    
     # do the search service 
     &write_line('COLCFG', ["<serviceRack name=\"GS2", $service_type, "Search\">"]);
@@ -523 +527 @@
     my ($buildcfg,$settings) = @_;
 
+    #return if($settings->{'num_indexes'} <= 0);    # no search if no indexes
+    
     my $infodbtype   = $settings->{'infodbtype'};