Changeset 21552

Timestamp:

2010-01-21T14:13:33+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed calls to GDBMUtils::gdbmDatabaseGet() to dbutil::read_infodb_entry(). Part of removing GDBMUtils.pm and making the code less GDBM-specific.

File:

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

main/trunk/greenstone2/perllib/inexport.pm

@@ -334 +334 @@
         # mark oid for deletion (it will be deleted or reimported)
         $archive_info->set_status_info($oid,"D");
-        my $val = &GDBMUtils::gdbmDatabaseGet($arcinfo_doc_filename,$oid);
+        my $val = &dbutil::read_infodb_entry("gdbm", $arcinfo_doc_filename, $oid);
         $val =~ s/^<index-status>(.*)$/<index-status>D/m;
         &GDBMUtils::gdbmDatabaseSet($arcinfo_doc_filename,$oid,$val);