SL/Presenter/ShopOrder.pm

   1 package SL::Presenter::ShopOrder;
   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(show shop_order);
  10
  11 use Carp;
  12
  13 sub show {goto &shop_order};
  14
  15 sub shop_order {
  16   my ($shop_order, %params) = @_;
  17
  18   $params{display} ||= 'inline';
  19
  20   croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;
  21
  22   my $text = escape($shop_order->shop_ordernumber);
  23   if (! delete $params{no_link}) {
  24     my $href = 'controller.pl?action=ShopOrder/show'
  25                . '&id='. escape($shop_order->id);
  26     $text = link_tag($href, $text, %params);
  27   }
  28
  29   is_escaped($text);
  30 }
  31
  32 1;
  33
  34 __END__
  35
  36 =pod
  37
  38 =encoding utf8
  39
  40 =head1 NAME
  41
  42 SL::Presenter::ShopOrder - Presenter module for SL::DB::ShopOrder objects
  43
  44 =head1 SYNOPSIS
  45
  46   my $object = SL::DB::Manager::ShopOrder->get_first();
  47   my $html   = SL::Presenter::ShopOrder::shop_order($object);
  48   # or
  49   my $html   = $object->presenter->show();
  50
  51 =head1 FUNCTIONS
  52
  53 =over 4
  54
  55 =item C<show $object>
  56
  57 Alias for C<shop_order $object %params>.
  58
  59 =item C<shop_order $object %params>
  60
  61 Returns a rendered version (actually an instance of
  62 L<SL::Presenter::EscapedText>) of the shop order object
  63 C<$object>.
  64
  65 Remaining C<%params> are passed to the function
  66 C<SL::Presenter::Tag::link_tag>. It can include:
  67
  68 =over 2
  69
  70 =item * no_link
  71
  72 If falsish (the default) then the shop order will be linked to the "show" dialog.
  73
  74 =back
  75
  76 C<%params> gets passed to L<SL::Presenter::Tag/link_tag>.
  77
  78 =back
  79
  80 =head1 BUGS
  81
  82 Nothing here yet.
  83
  84 =head1 AUTHOR
  85
  86 Tamino Steinert E<lt>tamino.steinert@tamino.stE<gt>
  87
  88 =cut