From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 9 May 2014 14:23:05 +0000 (+0200)
Subject: L: Parameterextraktion dreier Funktionen gefixt
X-Git-Tag: release-3.2.0beta~460
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=2384d9455b3b2b0e47f6c0f0cb631573af0dba0d;p=kivitendo-erp.git

L: Parameterextraktion dreier Funktionen gefixt

Template übergibt Hash-Parameter als Hash-Ref, nicht direkt als Hash.
---

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 : '';