From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 31 Jan 2008 15:46:23 +0000 (+0000)
Subject: Attachmentnamen (z.B. bei Emails): Weitere Sonderzeichen ( / und \ ) ersetzen, damit... 
X-Git-Tag: release-2.6.0beta1~259
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/commitdiff_plain/89015f89fe79f8924fbd1ed5f91ca01feac3e08c?ds=sidebyside;hp=e7361d77e6e37bf1f5a3137e237ab03d6dbb316f

Attachmentnamen (z.B. bei Emails): Weitere Sonderzeichen ( / und \ ) ersetzen, damit der Anhang leichter im Dateisystem gespeichert werden kann.
---

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 = "";
   }