X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDN.pm;h=45bc367ebc389fa160d92ba9754013c4aafebd01;hb=2af9eae7889e9d9f6ec9bffac5703681a155beb7;hp=f1e132fb7742fba5462e561258fc16c5956eb995;hpb=00e5ce0d02a0d1e5a6f7b8a28744ee7961932a0b;p=kivitendo-erp.git

diff --git a/SL/DN.pm b/SL/DN.pm
index f1e132fb7..45bc367eb 100644
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -288,7 +288,7 @@ sub save_dunning {
                (SELECT SUM(fee)
                 FROM dunning_config
                 WHERE dunning_level <= (SELECT dunning_level FROM dunning_config WHERE id = ?)),
-               (SELECT (amount - paid) * (current_date - transdate) FROM ar WHERE id = ?)
+               (SELECT (amount - paid) * (current_date - duedate) FROM ar WHERE id = ?)
                  * (SELECT interest_rate FROM dunning_config WHERE id = ?)
                  / 360,
                current_date,
@@ -363,7 +363,7 @@ sub send_email {
     return;
   }
 
-  my $template     = PlainTextTemplate->new(undef, $form, $myconfig);
+  my $template     = SL::Template::create(type => 'PlainText', form => $form, myconfig => $myconfig);
   my $mail         = Mailer->new();
   $mail->{from}    = $myconfig->{email};
   $mail->{to}      = $ref->{recipient};