X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/766f5705ecb9cd56adfbffd94c871959bb64c6fd..2f6a11fb5314d652152e0514bf5e5bf2735dc8fe:/SL/Presenter/CustomerVendor.pm

diff --git a/SL/Presenter/CustomerVendor.pm b/SL/Presenter/CustomerVendor.pm
index 209431fd3..2bf5ebc3c 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,27 @@ sub _customer_vendor {
   return $self->escaped_text($text);
 }
 
+sub customer_vendor_picker {
+  my ($self, $name, $value, %params) = @_;
+
+  $value = SL::DB::Manager::Customer->find_by(id => $value) if $value && !ref $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__