Ignore:
Timestamp:
2010-01-21T14:49:19+13:00 (14 years ago)
Author:
mdewsnip
Message:

Changed calls to GDBMUtils::gdbmDatabaseRemove() to dbutil::delete_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

    r21558 r21559  
    311311
    312312    # delete the src record
    313     GDBMUtils::gdbmDatabaseRemove($arcinfo_src_filename,$file);
     313    my $src_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_src_filename, "append");
     314    &dbutil::delete_infodb_entry("gdbm", $src_infodb_file_handle, $file);
     315    &dbutil::close_infodb_write_handle("gdbm", $src_infodb_file_handle);
    314316   
    315317    foreach my $oid (@$oids) {
Note: See TracChangeset for help on using the changeset viewer.