SL/Presenter/ShopOrder.pm

   1 package SL::Presenter::ShopOrder;
   2
   3 use strict;
   4
   5 use SL::Presenter::EscapedText qw(escape is_escaped);
   6
   7 use Exporter qw(import);
   8 our @EXPORT_OK = qw(shop_order);
   9
  10 use Carp;
  11
  12 sub shop_order {
  13   my ($shop_order, $type, %params) = @_;
  14
  15   $params{display} ||= 'inline';
  16
  17   croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;
  18
  19   my $text = join '', (
  20     $params{no_link} ? '' : '<a href="controller.pl?action=ShopOrder/show&amp;id='. escape($shop_order->id) .'">',
  21     escape($shop_order->shop_ordernumber),
  22     $params{no_link} ? '' : '</a>',
  23   );
  24
  25   is_escaped($text);
  26 }
  27 1;