Show
Ignore:
Timestamp:
23.05.2008 15:33:58 (11 years ago)
Author:
mdewsnip
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/cfgread4gs3.pm

    r15619 r15685  
    577577    my $default_search_level = "Doc"; 
    578578    my $default_retrieve_level = "Doc"; 
    579     my $default_gdbm_level = "Doc"; 
     579    my $default_db_level = "Doc"; 
    580580    $first = 1; 
    581581    if ($buildtype eq "mgpp" || $buildtype eq "lucene") { 
     
    589589            # let default search level follow the first level in the level list 
    590590            $default_search_level = $val; 
    591             # retrieve/GDBM levels may get modified later if text level is defined 
     591            # retrieve/database levels may get modified later if text level is defined 
    592592            $default_retrieve_level = $val; 
    593             $default_gdbm_level = $val; 
     593            $default_db_level = $val; 
    594594            $first = 0; 
    595595        } 
     
    603603     
    604604    if (defined $buildcfg->{'textlevel'}) { 
    605        # let the retrieve/gdbm levels always follow the textlevel 
     605       # let the retrieve/database levels always follow the textlevel 
    606606           $default_retrieve_level = $buildcfg->{'textlevel'}; 
    607        $default_gdbm_level = $buildcfg->{'textlevel'}; 
     607       $default_db_level = $buildcfg->{'textlevel'}; 
    608608          
    609609    } 
     
    623623    } 
    624624    if ($buildtype eq "lucene" || $buildtype eq "mgpp") { 
    625         # make the GDBM level  
    626         &write_line('COLCFG', ["<defaultDBLevel shortname=\"", $default_gdbm_level, "\" />"]); 
     625        &write_line('COLCFG', ["<defaultDBLevel shortname=\"", $default_db_level, "\" />"]); 
    627626    } 
    628627    # do searchTypeList