Undefinierte Werte aus der Liste der "gewollten Variablen" rauswerfen, weil die Liste...

diff --git a/SL/IR.pm b/SL/IR.pm
index a6f6665..3ebae96 100644 (file)
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -1250,6 +1250,7 @@ sub vendor_details {
   # remove id and taxincluded before copy back
   delete @$ref{qw(id taxincluded)};
 
+  @wanted_vars = grep({ $_ } @wanted_vars);
   if (scalar(@wanted_vars) > 0) {
     my %h_wanted_vars;
     map({ $h_wanted_vars{$_} = 1; } @wanted_vars);

diff --git a/SL/IS.pm b/SL/IS.pm
index cc8027b..1a36e2c 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -417,6 +417,7 @@ sub customer_details {
   # remove id and taxincluded before copy back
   delete @$ref{qw(id taxincluded)};
 
+  @wanted_vars = grep({ $_ } @wanted_vars);
   if (scalar(@wanted_vars) > 0) {
     my %h_wanted_vars;
     map({ $h_wanted_vars{$_} = 1; } @wanted_vars);