Changeset 23170


Ignore:
Timestamp:
2010-10-19T14:54:25+13:00 (11 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 edited

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
Note: See TracChangeset for help on using the changeset viewer.