Revision 2651b9cb
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
| 1102 | 1102 |
|
| 1103 | 1103 |
map { delete $form->{$_} } grep /^[a-z_]+_\d+$/, keys %{ $form };
|
| 1104 | 1104 |
|
| 1105 |
$form->{attachment_filename} = $form->get_formname_translation('dunning_invoice') . "_${dunning_id}.pdf";
|
|
| 1105 |
my $attachment_filename = $form->get_formname_translation('dunning_invoice') . "_${dunning_id}.pdf";
|
|
| 1106 |
$form->{attachment_filename} = $attachment_filename;
|
|
| 1106 | 1107 |
$form->{attachment_type} = "dunning";
|
| 1107 | 1108 |
$form->{attachment_id} = $form->{invoice_id};
|
| 1108 | 1109 |
$form->parse_template($myconfig); |
| ... | ... | |
| 1110 | 1111 |
restore_form($saved_form); |
| 1111 | 1112 |
|
| 1112 | 1113 |
push @{ $form->{DUNNING_PDFS} }, $filename;
|
| 1113 |
push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'filename' => "${spool}/$filename",
|
|
| 1114 |
'name' => "dunning_invoice_${dunning_id}.pdf" };
|
|
| 1114 |
push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'path' => "${spool}/$filename",
|
|
| 1115 |
'name' => $attachment_filename };
|
|
| 1115 | 1116 |
|
| 1116 | 1117 |
$main::lxdebug->leave_sub(); |
| 1117 | 1118 |
} |
Auch abrufbar als: Unified diff
Mahnung per Mail: auch Rechnung über Mahngebühren anhängen
Der Mailer erwartet den Pfad für das Attachment mit dem key "path",
nicht "filename".
Zudem übersetzten Anhang-Namen verwenden.