X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a0392369b75efa2fa8958f5cf2519272c960040d..62ac28eecd116eb0a806c2b354f216423ea43821:/SL/DN.pm diff --git a/SL/DN.pm b/SL/DN.pm index ea47209b2..1a615011f 100644 --- a/SL/DN.pm +++ b/SL/DN.pm @@ -1136,7 +1136,7 @@ sub print_invoice_for_fees { $self->set_customer_cvars($myconfig, $form); $self->set_template_options($myconfig, $form); - my $filename = Common::unique_id() . "dunning_invoice_${dunning_id}.pdf"; + my $filename = Common::unique_id() . "dunning_invoice_" . $form->{invnumber} . ".pdf"; my $spool = $::lx_office_conf{paths}->{spool}; $form->{OUT} = "$spool/$filename"; @@ -1145,7 +1145,7 @@ sub print_invoice_for_fees { map { delete $form->{$_} } grep /^[a-z_]+_\d+$/, keys %{ $form }; - my $attachment_filename = $form->get_formname_translation('dunning_invoice') . "_${dunning_id}.pdf"; + my $attachment_filename = $form->get_formname_translation('dunning_invoice') . "_" . $form->{invnumber} . ".pdf"; $form->{attachment_filename} = $attachment_filename; $form->{attachment_type} = "dunning"; $form->{attachment_id} = $invoice_id;