From 2384d9455b3b2b0e47f6c0f0cb631573af0dba0d Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Fri, 9 May 2014 16:23:05 +0200 Subject: [PATCH] L: Parameterextraktion dreier Funktionen gefixt MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Template übergibt Hash-Parameter als Hash-Ref, nicht direkt als Hash. --- SL/Template/Plugin/L.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm index 4b56da832..cc9c31aed 100644 --- a/SL/Template/Plugin/L.pm +++ b/SL/Template/Plugin/L.pm @@ -241,7 +241,7 @@ sub date_tag { } sub customer_picker { - my ($self, $name, $value, %params) = @_; + my ($self, $name, $value, %params) = _hashify(3, @_); my $name_e = _H($name); $::request->{layout}->add_javascripts('autocomplete_customer.js'); @@ -252,7 +252,7 @@ sub customer_picker { # simple version with select_tag sub vendor_selector { - my ($self, $name, $value, %params) = @_; + my ($self, $name, $value, %params) = _hashify(3, @_); my $actual_vendor_id = (defined $::form->{"$name"})? ((ref $::form->{"$name"}) ? $::form->{"$name"}->id : $::form->{"$name"}) : (ref $value && $value->can('id')) ? $value->id : ''; @@ -267,7 +267,7 @@ sub vendor_selector { # simple version with select_tag sub part_selector { - my ($self, $name, $value, %params) = @_; + my ($self, $name, $value, %params) = _hashify(3, @_); my $actual_part_id = (defined $::form->{"$name"})? ((ref $::form->{"$name"})? $::form->{"$name"}->id : $::form->{"$name"}) : (ref $value && $value->can('id')) ? $value->id : ''; -- 2.20.1