From 68c57596aac2769f2c7f09f84c444b7462adb164 Mon Sep 17 00:00:00 2001
From: Udo Spallek <info@wissensvermittlung.com>
Date: Wed, 9 May 2007 07:49:54 +0000
Subject: [PATCH] USTVA: Korrektur zum attachment_filename: Winston export
 Filename wurde ueberschrieben Betrifft commit: Revision: 2326 Author:
 sschoeling Date: 2007-05-03 13:06:46 +0200 (Thu, 03 May 2007)

---
 SL/Form.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index e3ff9cc06..f29c67166 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -862,7 +862,9 @@ sub parse_template {
           open(OUT, $self->{OUT})
             or $self->error($self->cleanup . "$self->{OUT} : $!");
         } else {
-          $self->{attachment_filename} = $self->generate_attachment_filename();
+          $self->{attachment_filename} = ($self->{attachment_filename}) 
+                                       ? $self->{attachment_filename}
+                                       : $self->generate_attachment_filename();
 
           # launch application
           print qq|Content-Type: | . $template->get_mime_type() . qq|
-- 
2.20.1