Changeset 33167 for main

Timestamp:

2019-06-18T09:32:04+12:00 (5 years ago)

Author:

kjdon

Message:

need to test for existence of rev info db before opening it - it won't be there if we are doing a full re-import

File:

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

main/trunk/greenstone2/perllib/arcinfo.pm

@@ -177 +177 @@
     my $rev_infodb_map = {};
 
-    &dbutil::read_infodb_file($self->{'infodbtype'}, $rev_filename, $rev_infodb_map);
-
-    foreach my $srcfile ( keys %$rev_infodb_map ) {
-
-    my $vals = $rev_infodb_map->{$srcfile};
-
-    $srcfile = &util::placeholders_to_abspath($srcfile);
-    foreach my $OID ($vals =~ m/^<oid>(.*)$/gm) {
-        $self->add_reverseinfo($srcfile,$OID);
+    if ((defined $rev_filename) && &FileUtils::fileExists($rev_filename)) {
+    &dbutil::read_infodb_file($self->{'infodbtype'}, $rev_filename, $rev_infodb_map);
+
+    foreach my $srcfile ( keys %$rev_infodb_map ) {
+        
+        my $vals = $rev_infodb_map->{$srcfile};
+        
+        $srcfile = &util::placeholders_to_abspath($srcfile);
+        foreach my $OID ($vals =~ m/^<oid>(.*)$/gm) {
+        $self->add_reverseinfo($srcfile,$OID);
+        }
     }
     }