X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPresenter%2FRecord.pm;h=db68fa6518334764cfaba3e840bedb648ad63635;hb=e3dfdb7a78f6e0bc8ac1075fedc36f8247c6fd92;hp=5890f429242952f99d3cda8f1c795e25ae12bc42;hpb=d63305ba3bea55eec4aac2df26149f439c086508;p=kivitendo-erp.git

diff --git a/SL/Presenter/Record.pm b/SL/Presenter/Record.pm
index 5890f4292..db68fa651 100644
--- a/SL/Presenter/Record.pm
+++ b/SL/Presenter/Record.pm
@@ -67,6 +67,8 @@ sub grouped_record_list {
   $output .= _letter_list(                 $groups{letters},                  %params) if $groups{letters};
   $output .= _email_journal_list(          $groups{email_journals},           %params) if $groups{email_journals};
 
+  $output .= _dunning_list(                $groups{dunnings},                 %params) if $groups{dunnings};
+
   $output  = SL::Presenter->get->render('presenter/record/grouped_record_list', %params, output => $output);
 
   return $output;
@@ -195,6 +197,7 @@ sub _group_records {
     bank_transactions        => sub { (ref($_[0]) eq 'SL::DB::BankTransaction') &&  $_[0]->id                           },
     letters                  => sub { (ref($_[0]) eq 'SL::DB::Letter')          &&  $_[0]->id                           },
     email_journals           => sub { (ref($_[0]) eq 'SL::DB::EmailJournal')    &&  $_[0]->id                           },
+    dunnings                 => sub { (ref($_[0]) eq 'SL::DB::Dunning')                                                 },
   );
 
   my %groups;
@@ -573,7 +576,23 @@ sub _email_journal_list {
     %params,
   );
 }
+sub _dunning_list {
+  my ($list, %params) = @_;
 
+  return record_list(
+    $list,
+    title   => $::locale->text('Dunnings'),
+    type    => 'dunning',
+    columns => [
+      [ $::locale->text('Dunning Level'),   sub { $_[0]->presenter->dunning(display => 'table-cell') } ],
+      [ $::locale->text('Dunning Date'),    'transdate'                                                ],
+      [ $::locale->text('Dunning Duedate'), 'duedate'                                                  ],
+      [ $::locale->text('Total Fees'),      'fee'                                                      ],
+      [ $::locale->text('Interest'),        'interest'                                                 ],
+    ],
+    %params,
+  );
+}
 
 1;