Changeset 21557

Timestamp:

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

Author:

mdewsnip

Message:

Changed calls to GDBMUtils::gdbmDatabaseSet() to dbutil::convert_infodb_string_to_hash() + dbutil::write_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

@@ -339 +339 @@
         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);
+
+        my $val_rec = &dbutil::convert_infodb_string_to_hash($val);
+        my $infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_doc_filename, "append");
+        &dbutil::write_infodb_entry("gdbm", $infodb_file_handle, $oid, $val_rec);
+        &dbutil::close_infodb_write_handle("gdbm", $infodb_file_handle);
         }
     }