Lieferanten im Autocomplete von Pickern korrekt behandeln

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.

diff --git a/SL/DB/CustomVariable.pm b/SL/DB/CustomVariable.pm
index 4be4b6e..560a2de 100644 (file)
--- 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;