X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/381f15f561199cb035f1bb9d7721362a0fc4c0b7..37ce1a9c9052de31c299f37bdf591a8d87e3963a:/SL/DN.pm

diff --git a/SL/DN.pm b/SL/DN.pm
index 3b7dc18bb..ebfa4f374 100644
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -327,12 +327,13 @@ sub save_dunning {
 
   $form->{DUNNING_PDFS_EMAIL} = [];
 
+  $form->{dunning_id} = $dunning_id;
+
   $self->create_invoice_for_fees($myconfig, $form, $dbh, $dunning_id);
 
   $self->print_invoice_for_fees($myconfig, $form, $dunning_id, $dbh);
   $self->print_dunning($myconfig, $form, $dunning_id, $dbh);
 
-  $form->{dunning_id} = $dunning_id;
 
   if ($send_email) {
     $self->send_email($myconfig, $form, $dunning_id, $dbh);
@@ -872,8 +873,6 @@ sub print_dunning {
   push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'filename' => "${spool}/$filename",
                                            'name'     => "dunning_${dunning_id}.pdf" };
 
-  $::lxdebug->dump(0,  "form", $::form);
-
   $form->parse_template($myconfig);
 
   $dbh->disconnect() unless $provided_dbh;