Changeset 21586

Timestamp:

2010-01-22T16:50:15+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed DirectoryPlugin to use the infodbtype value from the arcinfo object in the processor, instead of being hard-wired to use GDBM. Part of making the code less GDBM-specific.

File:

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

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

@@ -124 +124 @@
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
 
+    # Only lookup timestamp info for import.pl, and only if incremental is set
     my $proc_package_name = ref $processor;
-
     if ($proc_package_name !~ /buildproc$/ && $self->{'incremental'} == 1) {
-
-    # Only lookup timestamp info for import.pl, and only if incremental is set
-
+        # Get the infodbtype value for this collection from the arcinfo object
+        my $infodbtype = $processor->getoutputinfo()->{'infodbtype'};
     my $output_dir = $processor->getoutputdir();
 ##  my $archives_inf = &util::filename_cat($output_dir,"archives.inf");
-        my $archives_inf = &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $output_dir);
+        my $archives_inf = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-doc", $output_dir);
 
     if ( -e $archives_inf ) {