X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=b0e25d70daf1301223d6758d6182810a74f5d960;hb=d4f9d559a4a4d5e8fa2bb10be268e24634169b5e;hp=6fa51321a243d55ab920be4f1e133a5e2f1fedc5;hpb=5ab97a89a4dad2f892c0cfdeadd1d143e3d1b578;p=kivitendo-erp.git

diff --git a/SL/Form.pm b/SL/Form.pm
index 6fa51321a..b0e25d70d 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1259,20 +1259,23 @@ sub parse_template {
     $self->{OUT} = ">$self->{tmpfile}";
   }
 
+  my $result;
+
   if ($self->{OUT}) {
-    open(OUT, "$self->{OUT}") or $self->error("$self->{OUT} : $!");
+    open OUT, "$self->{OUT}" or $self->error("$self->{OUT} : $!");
+    $result = $template->parse(*OUT);
+    close OUT;
+
   } else {
-    open(OUT, ">-") or $self->error("STDOUT : $!");
     $self->header;
+    $result = $template->parse(*STDOUT);
   }
 
-  if (!$template->parse(*OUT)) {
+  if (!$result) {
     $self->cleanup();
     $self->error("$self->{IN} : " . $template->get_error());
   }
 
-  close(OUT);
-
   if ($template->uses_temp_file() || $self->{media} eq 'email') {
 
     if ($self->{media} eq 'email') {