1 package SL::Presenter::ShopOrder;
5 use parent qw(Exporter);
7 use Exporter qw(import);
8 our @EXPORT = qw(shop_order);
13 my ($self, $shop_order, $type, %params) = @_;
15 $params{display} ||= 'inline';
17 croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;
20 $params{no_link} ? '' : '<a href="controller.pl?action=ShopOrder/show&id='.$self->escape($shop_order->id).'">',
21 $self->escape($shop_order->shop_ordernumber),
22 $params{no_link} ? '' : '</a>',
24 return $self->escaped_text($text);