Changeset 23170

Timestamp:

2010-10-19T14:54:25+13:00 (14 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:

• inexport.pm (modified) (1 diff)
• plugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/inexport.pm

@@ -192 +192 @@
       $collectcfg->{'infodbtype'} = &dbutil::get_default_infodb_type();
     }
-
+    if ($collectcfg->{'infodbtype'} eq "gdbm-txtgz") {
+    # we can't use the text version for archives dbs.
+    $collectcfg->{'infodbtype'} = "gdbm";
+    }
     if (defined $collectcfg->{'importdir'} && $importdir eq "") {
     $importdir = $collectcfg->{'importdir'};

main/trunk/greenstone2/perllib/plugin.pm

@@ -225 +225 @@
     my ($pluginfo, $infodbtype, $archivedir, $deleted_files) = @_;
     return if (scalar(@$deleted_files)==0);
+    $infodbtype = "gdbm" if $infodbtype eq "gdbm-txtgz";
     my $arcinfo_src_filename = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-src", $archivedir);