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)

diff --git a/SL/Form.pm b/SL/Form.pm
index e3ff9cc..f29c671 100644 (file)
--- 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|