Changeset 23170

Show
Ignore:
Timestamp:
19.10.2010 14:54:25 (9 years ago)
Author:
kjdon
Message:

if infodbtype is gdbm-txtgz, we need to use gdbm for all archives dbs

Location:
main/trunk/greenstone2/perllib
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/inexport.pm

    r23132 r23170  
    192192      $collectcfg->{'infodbtype'} = &dbutil::get_default_infodb_type(); 
    193193    } 
    194  
     194    if ($collectcfg->{'infodbtype'} eq "gdbm-txtgz") { 
     195    # we can't use the text version for archives dbs. 
     196    $collectcfg->{'infodbtype'} = "gdbm"; 
     197    } 
    195198    if (defined $collectcfg->{'importdir'} && $importdir eq "") { 
    196199    $importdir = $collectcfg->{'importdir'}; 
  • main/trunk/greenstone2/perllib/plugin.pm

    r22221 r23170  
    225225    my ($pluginfo, $infodbtype, $archivedir, $deleted_files) = @_; 
    226226    return if (scalar(@$deleted_files)==0); 
     227    $infodbtype = "gdbm" if $infodbtype eq "gdbm-txtgz"; 
    227228    my $arcinfo_src_filename = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-src", $archivedir); 
    228229