Changeset 31208 for main/trunk/greenstone2/perllib/oaiinfo.pm

Timestamp:

2016-12-12T15:20:40+13:00 (7 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:

• main/trunk/greenstone2/perllib/oaiinfo.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/oaiinfo.pm

@@ -509 +509 @@
     foreach my $oid ( keys $self->{'info'} ) {
     my $OID_info = $self->{'info'}->{$oid};
-    #my $val_hash = { 
-    #    "status" => $OID_info->[INFO_STATUS_INDEX],
-    #    "timestamp" => $OID_info->[INFO_TIMESTAMP_INDEX] 
-    #}; 
-    
-    #&dbutil::write_infodb_rawentry($infodbtype,$infodb_handle,$oid,$val_hash);
-
     my $val = "<status>".$OID_info->[INFO_STATUS_INDEX]."\n<timestamp>".$OID_info->[INFO_TIMESTAMP_INDEX]."\n";
     &dbutil::write_infodb_rawentry($infodbtype,$infodb_handle,$oid,$val);