Revision 73a215a8
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| bin/mozilla/dn.pl | ||
|---|---|---|
| 44 | 44 |
use SL::Helper::Flash qw(flash); |
| 45 | 45 |
use SL::Locale::String qw(t8); |
| 46 | 46 |
use SL::Presenter::FileObject; |
| 47 |
use SL::Presenter::WebdavObject; |
|
| 47 | 48 |
use SL::ReportGenerator; |
| 48 | 49 |
|
| 49 | 50 |
require "bin/mozilla/common.pl"; |
| ... | ... | |
| 383 | 384 |
'fee' => { 'text' => $locale->text('Total Fees') },
|
| 384 | 385 |
'interest' => { 'text' => $locale->text('Interest') },
|
| 385 | 386 |
'salesman' => { 'text' => $locale->text('Salesperson'), 'visible' => $form->{l_salesman} ? 1 : 0 },
|
| 386 |
'documents' => { 'text' => $locale->text('Documents') , 'visible' => $::instance_conf->get_doc_storage ? 1 : 0 },
|
|
| 387 |
'documents' => { 'text' => $locale->text('Documents'), 'visible' => $::instance_conf->get_doc_storage ? 1 : 0 },
|
|
| 388 |
'webdav' => { 'text' => $locale->text('WebDAV'), 'visible' => $::instance_conf->get_webdav ? 1 : 0 },
|
|
| 387 | 389 |
); |
| 388 | 390 |
|
| 389 | 391 |
$report->set_columns(%column_defs); |
| ... | ... | |
| 463 | 465 |
$row->{documents} = { };
|
| 464 | 466 |
} |
| 465 | 467 |
} |
| 468 |
if ($::instance_conf->get_webdav && $first_row_for_dunning) {
|
|
| 469 |
my $webdav = SL::Webdav->new( |
|
| 470 |
type => 'dunning', |
|
| 471 |
number => $ref->{dunning_id},
|
|
| 472 |
); |
|
| 473 |
my @all_objects = $webdav->get_all_objects; |
|
| 474 |
if (scalar @all_objects) {
|
|
| 475 |
my $html = join '<br>', map { SL::Presenter::WebdavObject::webdav_object($_) } @all_objects;
|
|
| 476 |
my $text = join "\n", map { $_->filename } @all_objects;
|
|
| 477 |
$row->{webdav} = { 'raw_data' => $html, data => $text };
|
|
| 478 |
} else {
|
|
| 479 |
$row->{webdav} = { };
|
|
| 480 |
} |
|
| 481 |
} |
|
| 466 | 482 |
|
| 467 | 483 |
push @{ $current_dunning_rows }, $row;
|
| 468 | 484 |
|
Auch abrufbar als: Unified diff
Mahnungsbericht: Webdav-Dateien f. Mahnlauf anzeigen