X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPresenter%2FCustomerVendor.pm;h=fccfa1daf49207ac9d5c966c26cf586eac8621fd;hb=e9e60985f22a94e8148cd5bbac281d31721f4f7c;hp=a1aeee11941c9fd80882bb3b974c3297f57cf68c;hpb=0e92b99c50866eaeddd34138d6b3c1b31bff6f43;p=kivitendo-erp.git diff --git a/SL/Presenter/CustomerVendor.pm b/SL/Presenter/CustomerVendor.pm index a1aeee119..fccfa1daf 100644 --- a/SL/Presenter/CustomerVendor.pm +++ b/SL/Presenter/CustomerVendor.pm @@ -5,10 +5,15 @@ use strict; use parent qw(Exporter); use Exporter qw(import); -our @EXPORT = qw(customer vendor customer_vendor_picker); +our @EXPORT = qw(customer_vendor customer vendor customer_vendor_picker); use Carp; +sub customer_vendor { + my ($self, $customer_vendor, %params) = @_; + return _customer_vendor($self, $customer_vendor, ref($customer_vendor) eq 'SL::DB::Customer' ? 'customer' : 'vendor', %params); +} + sub customer { my ($self, $customer, %params) = @_; return _customer_vendor($self, $customer, 'customer', %params); @@ -57,7 +62,7 @@ sub customer_vendor_picker { 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); + $self->input_tag("", ref $value ? $value->displayable_name : '', id => "${id}_name", %params); $::request->layout->add_javascripts('autocomplete_customer.js'); $::request->presenter->need_reinit_widgets($id); @@ -136,6 +141,14 @@ the "edit vendor" dialog from the master data menu. =back +=item C + +Returns a rendered version (actually an instance of +L) of the customer or vendor object +C<$object> by calling either L or L depending on +C<$object>'s type. See the respective functions for available +parameters. + =back =head1 BUGS