1 package SL::Presenter::Dunning;
5 use SL::Presenter::EscapedText qw(escape is_escaped);
7 use Exporter qw(import);
8 our @EXPORT_OK = qw(dunning);
13 my ($dunning, $type, %params) = @_;
15 $params{display} ||= 'inline';
17 croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;
19 my $invoice = SL::DB::Manager::Invoice->find_by( id => $dunning->trans_id );
22 $params{no_link} ? '' : '<a href="dn.pl?action=print_dunning&format=pdf&media=screen&dunning_id=' . $dunning->dunning_id . '&language_id=' . $invoice->language_id . '">',
23 escape($dunning->dunning_config->dunning_description),
24 $params{no_link} ? '' : '</a>',