Changeset 23170 for main/trunk/greenstone2/perllib/plugin.pm

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

File:

• main/trunk/greenstone2/perllib/plugin.pm (modified) (1 diff)

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);