Changeset 31187 for main/trunk/greenstone2/perllib/arcinfo.pm

Timestamp:

2016-12-09T21:21:29+13:00 (7 years ago)

Author:

ak19

Message:

Useful changes not specifically related to upcoming oaiinfo db related commit.

File:

• main/trunk/greenstone2/perllib/arcinfo.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/arcinfo.pm

@@ -79 +79 @@
     my ($filename) = @_;
 
-    if (defined $filename && -e $filename) {
+    if (defined $filename && &FileUtils::fileExists($filename)) {
     open (INFILE, $filename) || 
         die "arcinfo::load_info couldn't read $filename\n";
@@ -125 +125 @@
     $self->{'info'} = {};
 
-    if ((defined $filename) && (-e $filename)) {
+    if ((defined $filename) && &FileUtils::fileExists($filename)) {
     if ($filename =~ m/\.inf$/) {
         $self->_load_info_txt($filename);
@@ -158 +158 @@
     $self->{'import-filelist'} = {};
 
-    if ((defined $filename) && (-e $filename)) {
+    if ((defined $filename) && &FileUtils::fileExists($filename)) {
     if ($filename =~ m/\.inf$/) {
         # e.g. 'archives-src.inf' (which includes complete list of file
@@ -186 +186 @@
 
     foreach my $OID ($vals =~ m/^<oid>(.*)$/gm) {
-        $self->add_revinfo($srcfile,$OID);
+        $self->add_reverseinfo($srcfile,$OID);
     }
     }