1 package SL::Presenter::Part;
5 use Exporter qw(import);
6 our @EXPORT = qw(part_picker);
9 my ($self, $name, $value, %params) = @_;
10 my $name_e = $self->escape($name);
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');
18 $self->html_tag('span', $ret, class => 'part_picker');