Changeset 21566 for main/trunk/greenstone2/perllib/plugouts

Timestamp:

2010-01-21T16:20:42+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed all places explicitly using "archiveinf-doc.gdb" or "archiveinf-src.gdb" to use the dbutil::get_infodb_file_path() function... you know, the one that should have been used originally? In preparation for making it possible to use something other than GDBM, and part of making the code less GDBM-specific.

File:

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

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -743 +743 @@
     my $output_dir = $self->{'output_dir'};
 
-    my $doc_db = &util::filename_cat($output_dir,"archiveinf-doc.gdb");
-    my $src_db = &util::filename_cat($output_dir,"archiveinf-src.gdb");
+    my $doc_db = &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $output_dir);
+    my $src_db = &dbutil::get_infodb_file_path("gdbm", "archiveinf-src", $output_dir);
 
     ##print STDERR "*** To set in db: \n\t$doc_db\n\t$oid\n\t$doc_db_text\n";