Changeset 3415

Timestamp:

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

Author:

jrm21

Message:

don't try to write to and close an archive file if one wasn't opened (eg no
documents were processed).

File:

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

trunk/gsdl/perllib/docsave.pm

@@ -258 +258 @@
     my ($self) = @_;
 
-    $self->output_xml_footer('docsave::OUTDOC');    
-    close OUTDOC;
+    # make sure that the handle has been opened - it won't be if we failed
+    # to import any documents...
+    if (defined(fileno(docsave::OUTDOC))) {
+    $self->output_xml_footer('docsave::OUTDOC');    
+    close OUTDOC;
+    }
 
     my $OID = $self->{'gs_OID'};