X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPresenter%2FCustomerVendor.pm;h=209431fd3ab38c7a7dd77b5ef884fe46f9ba35b2;hb=915e14b7f4a22384a3cd6ca744401474525dd301;hp=6d24409d2745e77c69ab358b65880dd2cf7f1e23;hpb=6ac47be4e3e318ea212ca595195b0b55a9c386a3;p=kivitendo-erp.git diff --git a/SL/Presenter/CustomerVendor.pm b/SL/Presenter/CustomerVendor.pm index 6d24409d2..209431fd3 100644 --- a/SL/Presenter/CustomerVendor.pm +++ b/SL/Presenter/CustomerVendor.pm @@ -10,12 +10,12 @@ our @EXPORT = qw(customer vendor); use Carp; sub customer { - my ($self, $customer, $type, %params) = @_; + my ($self, $customer, %params) = @_; return _customer_vendor($self, $customer, 'customer', %params); } sub vendor { - my ($self, $vendor, $type, %params) = @_; + my ($self, $vendor, %params) = @_; return _customer_vendor($self, $vendor, 'vendor', %params); } @@ -26,6 +26,8 @@ sub _customer_vendor { croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/; + my $callback = $params{callback} ? '&callback=' . $::form->escape($params{callback}) : ''; + my $text = join '', ( $params{no_link} ? '' : '', $self->escape($cv->name),