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

[kivitendo-erp.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 8a12841e3b9443d4fcaa465011749f869f118b55..510e30561c83a3cc4683ccff01ba31ff5e1d9ef8 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"
                                :                                      "");
                                : $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 = "";
   }
   } else {
     $attachment_filename = "";
   }