Changeset 3416 for trunk/gsdl/perllib/arcinfo.pm

Timestamp:

2002-09-10T13:43:58+12:00 (22 years ago)

Author:

jrm21

Message:

Fix up problem if no documents were processed and accepted.

File:

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

trunk/gsdl/perllib/arcinfo.pm

@@ -108 +108 @@
     $sortmeta = "" unless defined $sortmeta;
 
+    if (! defined($OID)) {
+    # only happens when no files can be processed?
+    return undef;
+    }
     $self->delete_info ($OID);
     $self->{'info'}->{$OID} = [$doc_file];