X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPresenter%2FCustomerVendor.pm;h=9045cda0c489c25dc1cc1563cab33eafa0815607;hb=eb07117b26f569d689835471cab6665e510e123e;hp=209431fd3ab38c7a7dd77b5ef884fe46f9ba35b2;hpb=766f5705ecb9cd56adfbffd94c871959bb64c6fd;p=kivitendo-erp.git diff --git a/SL/Presenter/CustomerVendor.pm b/SL/Presenter/CustomerVendor.pm index 209431fd3..9045cda0c 100644 --- a/SL/Presenter/CustomerVendor.pm +++ b/SL/Presenter/CustomerVendor.pm @@ -5,7 +5,7 @@ use strict; use parent qw(Exporter); use Exporter qw(import); -our @EXPORT = qw(customer vendor); +our @EXPORT = qw(customer vendor customer_vendor_picker); use Carp; @@ -36,6 +36,34 @@ sub _customer_vendor { return $self->escaped_text($text); } +sub customer_vendor_picker { + my ($self, $name, $value, %params) = @_; + + croak 'Unknown "type" parameter' unless $params{type} =~ m{^(?:customer|vendor)$}; + croak 'Unknown value class' if $value && ref($value) && (ref($value) !~ m{^SL::DB::(?:Customer|Vendor)$}); + + if ($value && !ref $value) { + my $class = $params{type} eq 'customer' ? 'SL::DB::Manager::Customer' : 'SL::DB::Manager::Vendor'; + $value = $class->find_by(id => $value); + } + + my $id = delete($params{id}) || $self->name_to_id($name); + my $fat_set_item = delete $params{fat_set_item}; + + my @classes = $params{class} ? ($params{class}) : (); + push @classes, 'customer_vendor_autocomplete'; + push @classes, 'customer-vendor-picker-fat-set-item' if $fat_set_item; + + my $ret = + $self->input_tag($name, (ref $value && $value->can('id') ? $value->id : ''), class => "@classes", type => 'hidden', id => $id) . + join('', map { $params{$_} ? $self->input_tag("", delete $params{$_}, id => "${id}_${_}", type => 'hidden') : '' } qw(type)) . + $self->input_tag("", (ref $value && $value->can('name')) ? $value->name : '', id => "${id}_name", %params); + + $::request->presenter->need_reinit_widgets($id); + + $self->html_tag('span', $ret, class => 'customer_vendor_picker'); +} + 1; __END__