Ignore:
Timestamp:
12/12/16 15:20:40 (4 years ago)
Author:
ak19
Message:

Kathy found that the lowercased dbutil modules are not used (jdbm.pm, for example) and have been wholly replaced by the uppercased versions in DBDrivers folder. (I thought we had both). So I've moved the recently added code in jdbm.pm to JDBM.pm and fixed it up. Also tiedied up oaiinfo.pm of some unwanted commented out code.

File:
1 edited

Legend:

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

    r31192 r31208  
    509509    foreach my $oid ( keys $self->{'info'} ) {
    510510    my $OID_info = $self->{'info'}->{$oid};
    511     #my $val_hash = {
    512     #    "status" => $OID_info->[INFO_STATUS_INDEX],
    513     #    "timestamp" => $OID_info->[INFO_TIMESTAMP_INDEX]
    514     #};
    515    
    516     #&dbutil::write_infodb_rawentry($infodbtype,$infodb_handle,$oid,$val_hash);
    517 
    518511    my $val = "<status>".$OID_info->[INFO_STATUS_INDEX]."\n<timestamp>".$OID_info->[INFO_TIMESTAMP_INDEX]."\n";
    519512    &dbutil::write_infodb_rawentry($infodbtype,$infodb_handle,$oid,$val);
Note: See TracChangeset for help on using the changeset viewer.