Mahnungsbericht: Erzeugte Dokumente anzeigen -> auch Rechnungen f. Mahngebühren

diff --git a/bin/mozilla/dn.pl b/bin/mozilla/dn.pl
index 8f8efc5b6a78f7277e8202a458a48e1ad020c30a..ec46a4788a96b1fcf1871b5b64bcde1327794d27 100644 (file)
--- a/bin/mozilla/dn.pl
+++ b/bin/mozilla/dn.pl
@@ -448,9 +448,14 @@ sub show_dunning {
     }
 
     if ($::instance_conf->get_doc_storage) {
     }
 
     if ($::instance_conf->get_doc_storage) {

-      my @files = SL::File->get_all_versions(object_id   => $ref->{id},
-                                             object_type => 'dunning' . $ref->{dunning_level},
-                                             file_type   => 'document',);
+      # object_types dunning1-dunning3 are the dunnings for the according levels.
+      my @files  = SL::File->get_all_versions(object_id   => $ref->{id},
+                                              object_type => 'dunning' . $ref->{dunning_level},
+                                              file_type   => 'document',);
+      # object_type  dunning is the dunning invoice with the fees.
+      push @files, SL::File->get_all_versions(object_id   => $ref->{id},
+                                              object_type => 'dunning',
+                                              file_type   => 'document',);

       if (scalar @files) {
         my $html          = join '<br>', map { SL::Presenter::FileObject::file_object($_) } @files;
         my $text          = join "\n",   map { $_->file_name                              } @files;
       if (scalar @files) {
         my $html          = join '<br>', map { SL::Presenter::FileObject::file_object($_) } @files;
         my $text          = join "\n",   map { $_->file_name                              } @files;