Attachmentnamen (z.B. bei Emails): Weitere Sonderzeichen ( / und \ ) ersetzen, damit...

diff --git a/SL/Form.pm b/SL/Form.pm
index 8a12841..510e305 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1263,8 +1263,8 @@ sub generate_attachment_filename {
                                : $self->{format} =~ /opendocument/i ? ".odt"
                                : $self->{format} =~ /html/i         ? ".html"
                                :                                      "");
-    $attachment_filename =  lc $main::locale->quote_special_chars('filenames', $attachment_filename);
-    $attachment_filename =~ s/ /_/g;
+    $attachment_filename =  $main::locale->quote_special_chars('filenames', $attachment_filename);
+    $attachment_filename =~ s|[\s/\\]+|_|g;
   } else {
     $attachment_filename = "";
   }