Changeset 21552


Ignore:
Timestamp:
01/21/10 14:13:33 (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/inexport.pm

    r21306 r21552  
    334334        # mark oid for deletion (it will be deleted or reimported)
    335335        $archive_info->set_status_info($oid,"D");
    336         my $val = &GDBMUtils::gdbmDatabaseGet($arcinfo_doc_filename,$oid);
     336        my $val = &dbutil::read_infodb_entry("gdbm", $arcinfo_doc_filename, $oid);
    337337        $val =~ s/^<index-status>(.*)$/<index-status>D/m;
    338338        &GDBMUtils::gdbmDatabaseSet($arcinfo_doc_filename,$oid,$val);
Note: See TracChangeset for help on using the changeset viewer.