Changeset 21565

Timestamp:

2010-01-21T16:07:19+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed dbutil::gdbm::X() calls to dbutil::X("gdbm"), in preparation for making it possible to use something other than GDBM. Part of making the code less GDBM-specific.

File:

• main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm (modified) (2 diffs)

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

@@ -32 +32 @@
 no strict 'refs';
 
+use dbutil;
 use gsprintf 'gsprintf';
 use printusage;
 use parse2;
 
-use dbutil::gdbm;
 
 # suppress the annoying "subroutine redefined" warning that various
@@ -753 +753 @@
     $oid_files->{'sort-meta'} = [ $oid_files->{'sort-meta'} ];
 
-    my $infodb_file_handle 
-    = &dbutil::gdbm::open_infodb_write_handle($doc_db,"append");
-    &dbutil::gdbm::write_infodb_entry($infodb_file_handle,$oid,$oid_files);
-    &dbutil::gdbm::close_infodb_write_handle($infodb_file_handle);
-
-
+    my $infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $doc_db, "append");
+    &dbutil::write_infodb_entry("gdbm", $infodb_file_handle, $oid, $oid_files);
+    &dbutil::close_infodb_write_handle("gdbm", $infodb_file_handle);
 
     foreach my $rl (keys %$reverse_lookups) {