Changeset 23171

Timestamp:

2010-10-19T14:54:50+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/plugins

Files:

• ArchivesInfPlugin.pm (modified) (1 diff)
• DirectoryPlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/ArchivesInfPlugin.pm

@@ -227 +227 @@
     # Get the infodbtype value for this collection from the buildproc object
     my $infodbtype = $processor->{'infodbtype'};
-
+    $infodbtype = "gdbm" if $infodbtype eq "gdbm-txtgz";
+    
     # see if this has a archives information file within it
 ##    my $archive_info_filename = &util::filename_cat($base_dir,$file,"archives.inf");

main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm

@@ -129 +129 @@
         # Get the infodbtype value for this collection from the arcinfo object
         my $infodbtype = $processor->getoutputinfo()->{'infodbtype'};
+    $infodbtype = "gdbm" if $infodbtype eq "gdbm-txtgz"; # in archives, cannot use txtgz version
     my $output_dir = $processor->getoutputdir();
 ##  my $archives_inf = &util::filename_cat($output_dir,"archives.inf");