Undefinierte Werte aus der Liste der "gewollten Variablen" rauswerfen, weil die Liste...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 19 Jan 2007 13:36:12 +0000 (13:36 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Fri, 19 Jan 2007 13:36:12 +0000 (13:36 +0000)
SL/IR.pm
SL/IS.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);
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);