Changeset 15685 for gsdl/trunk/perllib/cfgread4gs3.pm

Timestamp:

2008-05-23T15:33:58+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Changed all the "gdbm_level"s to "db_level".

File:

• gsdl/trunk/perllib/cfgread4gs3.pm (modified) (4 diffs)

gsdl/trunk/perllib/cfgread4gs3.pm

@@ -577 +577 @@
     my $default_search_level = "Doc";
     my $default_retrieve_level = "Doc";
-    my $default_gdbm_level = "Doc";
+    my $default_db_level = "Doc";
     $first = 1;
     if ($buildtype eq "mgpp" || $buildtype eq "lucene") {
@@ -589 +589 @@
             # let default search level follow the first level in the level list
             $default_search_level = $val;
-            # retrieve/GDBM levels may get modified later if text level is defined
+            # retrieve/database levels may get modified later if text level is defined
             $default_retrieve_level = $val;
-            $default_gdbm_level = $val;
+            $default_db_level = $val;
             $first = 0;
         }
@@ -603 +603 @@
     
     if (defined $buildcfg->{'textlevel'}) {
-       # let the retrieve/gdbm levels always follow the textlevel
+       # let the retrieve/database levels always follow the textlevel
            $default_retrieve_level = $buildcfg->{'textlevel'};
-       $default_gdbm_level = $buildcfg->{'textlevel'};
+       $default_db_level = $buildcfg->{'textlevel'};
          
     }
@@ -623 +623 @@
     }
     if ($buildtype eq "lucene" || $buildtype eq "mgpp") {
-        # make the GDBM level 
-        &write_line('COLCFG', ["<defaultDBLevel shortname=\"", $default_gdbm_level, "\" />"]);
+        &write_line('COLCFG', ["<defaultDBLevel shortname=\"", $default_db_level, "\" />"]);
     }
     # do searchTypeList