From d416d4c43db74a0812d74834d078df9e0d2921a6 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Fri, 19 Jan 2007 13:36:12 +0000 Subject: [PATCH] Undefinierte Werte aus der Liste der "gewollten Variablen" rauswerfen, weil die Liste ansonsten eventuell nicht leer ist. --- SL/IR.pm | 1 + SL/IS.pm | 1 + 2 files changed, 2 insertions(+) diff --git a/SL/IR.pm b/SL/IR.pm index a6f66659e..3ebae9653 100644 --- 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 cc8027b9a..1a36e2c9a 100644 --- 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); -- 2.20.1