Changeset 21552

Show
Ignore:
Timestamp:
21.01.2010 14:13:33 (9 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.

Files:
1 modified

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);