projekt kivitendo

sub part_picker {

  my ($self, $name, $value, %params) = _hashify(3, @_);

  my $name_e    = _H($name);

  my $ret = $self->hidden_tag($name, (ref $value && $value->can('id') ? $value->id : ''), class => 'part_autocomplete') .

  $self->hidden_tag("", delete $params{type}, id => $self->name_to_id("$name_e\_type")) .

  $self->input_tag("", (ref $value && $value->can('description')) ? $value->description : '', id => $self->name_to_id("$name_e\_name"), %params) .

  $self->hidden_tag("", delete $params{column}, id => $self->name_to_id("$name_e\_column"));

  $self->html_tag('span', $ret, class => 'part_picker');

}