From a204ef83829cdfa41ba44bd0104b354c1353ceae Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Tue, 20 Jan 2015 16:21:20 +0100 Subject: [PATCH] Lieferanten im Autocomplete von Pickern korrekt behandeln MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit bei Customer funktionierte es, Code an Customer angepasst. SL::DB::CustomVariables::value_as_text hat keine Text zurückgegeben, das gab Fehler im Autocomplete, wenn eine Objekt in der Auswahl war, welches einen definierten Lieferanten hatte: encountered object 'SL::DB::Vendor=HASH(0x5c8bef0)', but neither allow_blessed enabled nor TO_JSON method available on it at /usr/share/perl5/JSON.pm line 154. --- SL/DB/CustomVariable.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/SL/DB/CustomVariable.pm b/SL/DB/CustomVariable.pm index 4be4b6ef2..560a2de6f 100644 --- a/SL/DB/CustomVariable.pm +++ b/SL/DB/CustomVariable.pm @@ -103,7 +103,8 @@ sub value_as_text { require SL::DB::Vendor; my $id = int($self->number_value); - return $id ? SL::DB::Vendor->new(id => $id)->load() : 0; + my $vendor = $id ? SL::DB::Vendor->new(id => $id)->load() : 0; + return $vendor ? $vendor->name : ''; } elsif ( $type eq 'part' ) { require SL::DB::Part; -- 2.20.1