X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fio.pl;h=6fa6718a71e345c01f90fa68905d4a03404517da;hb=7712480e4a082f84a2229f5b1a90d79a6c01255b;hp=f935128082664954281ceb6d0feccc7d0a8eb651;hpb=2b89ec9756dc1d3525b6163fe4cf4f38af83f9d8;p=kivitendo-erp.git diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl index f93512808..6fa6718a7 100644 --- a/bin/mozilla/io.pl +++ b/bin/mozilla/io.pl @@ -1359,4 +1359,1020 @@ sub e_mail { $attachment_filename =~ s/ /_/g; my %umlaute = ( - " \ No newline at end of file + "ä" => "ae", "ö" => "oe", "ü" => "ue", + "Ä" => "Ae", "Ö" => "Oe", "Ü" => "Ue", + "ß" => "ss" + ); + map({ $attachment_filename =~ s/$_/$umlaute{$_}/g; } keys(%umlaute)); + } else { + $attachment_filename = ""; + } + + if ($form->{"email"}) { + $form->{"fokus"} = "Form.subject"; + } else { + $form->{"fokus"} = "Form.email"; + } + $form->header; + + print qq| +
+ + + + +