SL/Presenter/Dunning.pm

   1 package SL::Presenter::Dunning;
   2
   3 use strict;
   4
   5 use SL::Presenter::EscapedText qw(escape is_escaped);
   6 use SL::Presenter::Tag         qw(link_tag);
   7
   8 use Exporter qw(import);
   9 our @EXPORT_OK = qw(dunning);
  10
  11 use Carp;
  12
  13 sub dunning {
  14   my ($dunning, %params) = @_;
  15
  16   $params{display} ||= 'inline';
  17
  18   croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;
  19
  20   my $text = escape($dunning->dunning_config->dunning_description);
  21
  22   if (! delete $params{no_link}) {
  23     my $href = 'dn.pl?action=show_dunning&showold=1&dunning_id=' . $dunning->dunning_id;
  24     $text    = link_tag($href, $text, %params);
  25   }
  26
  27   is_escaped($text);
  28 }
  29
  30 1;