Revision 91e4e0fc
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/Presenter/Dunning.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 | 5 |
use SL::Presenter::EscapedText qw(escape is_escaped); |
| 6 |
use SL::Presenter::Tag qw(link_tag); |
|
| 6 | 7 |
|
| 7 | 8 |
use Exporter qw(import); |
| 8 | 9 |
our @EXPORT_OK = qw(dunning); |
| ... | ... | |
| 18 | 19 |
|
| 19 | 20 |
my $invoice = SL::DB::Manager::Invoice->find_by( id => $dunning->trans_id ); |
| 20 | 21 |
|
| 21 |
my $text = join '', ( |
|
| 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>',
|
|
| 25 |
); |
|
| 22 |
my $text = escape($dunning->dunning_config->dunning_description); |
|
| 23 |
|
|
| 24 |
if (! delete $params{no_link}) {
|
|
| 25 |
my $href = 'dn.pl?action=print_dunning&format=pdf&media=screen&dunning_id=' . $dunning->dunning_id . '&language_id=' . $invoice->language_id; |
|
| 26 |
$text = link_tag($href, $text, %params); |
|
| 27 |
} |
|
| 26 | 28 |
|
| 27 | 29 |
is_escaped($text); |
| 28 | 30 |
} |
Auch abrufbar als: Unified diff
S:P:Dunning: Link mit link_tag erzeugen