From 89015f89fe79f8924fbd1ed5f91ca01feac3e08c Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 31 Jan 2008 15:46:23 +0000
Subject: [PATCH] Attachmentnamen (z.B. bei Emails): Weitere Sonderzeichen ( /
 und \ ) ersetzen, damit der Anhang leichter im Dateisystem gespeichert werden
 kann.

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

diff --git a/SL/Form.pm b/SL/Form.pm
index 8a12841e3..510e30561 100644
--- 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 = "";
   }
-- 
2.20.1