SL/Presenter/Part.pm

   1 package SL::Presenter::Part;
   2
   3 use strict;
   4
   5 use Exporter qw(import);
   6 our @EXPORT = qw(part_picker);
   7
   8 sub part_picker {
   9   my ($self, $name, $value, %params) = @_;
  10   my $name_e    = $self->escape($name);
  11
  12   my $ret =
  13     $self->input_tag($name, (ref $value && $value->can('id') ? $value->id : ''), class => 'part_autocomplete', type => 'hidden') .
  14     $self->input_tag("", delete $params{type}, id => $self->name_to_id("$name_e\_type"), type => 'hidden') .
  15     $self->input_tag("", (ref $value && $value->can('description')) ? $value->description : '', id => $self->name_to_id("$name_e\_name"), %params) .
  16     $self->input_tag("", delete $params{column}, id => $self->name_to_id("$name_e\_column"), type => 'hidden');
  17
  18   $self->html_tag('span', $ret, class => 'part_picker');
  19 }
  20
  21 1;