Revision 298aa1cb
Von Moritz Bunkus vor fast 5 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1119 | 1119 |
if (($self->{format} eq 'html') && ($self->{sendmode} eq 'inline')) {
|
| 1120 | 1120 |
$mail->{content_type} = "text/html";
|
| 1121 | 1121 |
$mail->{message} =~ s/\r//g;
|
| 1122 |
$mail->{message} =~ s/\n/<br>\n/g;
|
|
| 1123 |
$full_signature =~ s/\n/<br>\n/g;
|
|
| 1122 |
$mail->{message} =~ s{\n}{<br>\n}g;
|
|
| 1123 |
$full_signature =~ s{\n}{<br>\n}g;
|
|
| 1124 | 1124 |
$mail->{message} .= $full_signature;
|
| 1125 | 1125 |
|
| 1126 | 1126 |
open(IN, "<", $self->{tmpfile})
|
| ... | ... | |
| 1130 | 1130 |
|
| 1131 | 1131 |
} elsif (($self->{attachment_policy} // '') ne 'no_file') {
|
| 1132 | 1132 |
my $attachment_name = $self->{attachment_filename} || $self->{tmpfile};
|
| 1133 |
$attachment_name =~ s/\.(.+?)$/.${ext_for_format}/ if ($ext_for_format);
|
|
| 1133 |
$attachment_name =~ s{\.(.+?)$}{.${ext_for_format}} if ($ext_for_format);
|
|
| 1134 | 1134 |
|
| 1135 | 1135 |
if (($self->{attachment_policy} // '') eq 'old_file') {
|
| 1136 | 1136 |
my ( $attfile ) = SL::File->get_all(object_id => $self->{id},
|
Auch abrufbar als: Unified diff
Bug in Emacs' Perl-Syntax-Highlighter umschiffen