Revision b82c5043
Von Bernd Bleßmann vor fast 4 Jahren hinzugefügt
| bin/mozilla/dn.pl | ||
|---|---|---|
| 448 | 448 |
} |
| 449 | 449 |
|
| 450 | 450 |
if ($::instance_conf->get_doc_storage) {
|
| 451 |
my @files = SL::File->get_all_versions(object_id => $ref->{id},
|
|
| 452 |
object_type => 'dunning' . $ref->{dunning_level},
|
|
| 453 |
file_type => 'document',); |
|
| 451 |
# object_types dunning1-dunning3 are the dunnings for the according levels. |
|
| 452 |
my @files = SL::File->get_all_versions(object_id => $ref->{id},
|
|
| 453 |
object_type => 'dunning' . $ref->{dunning_level},
|
|
| 454 |
file_type => 'document',); |
|
| 455 |
# object_type dunning is the dunning invoice with the fees. |
|
| 456 |
push @files, SL::File->get_all_versions(object_id => $ref->{id},
|
|
| 457 |
object_type => 'dunning', |
|
| 458 |
file_type => 'document',); |
|
| 454 | 459 |
if (scalar @files) {
|
| 455 | 460 |
my $html = join '<br>', map { SL::Presenter::FileObject::file_object($_) } @files;
|
| 456 | 461 |
my $text = join "\n", map { $_->file_name } @files;
|
Auch abrufbar als: Unified diff
Mahnungsbericht: Erzeugte Dokumente anzeigen -> auch Rechnungen f. Mahngebühren