Revision d416d4c4
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
SL/IS.pm | ||
---|---|---|
417 | 417 |
# remove id and taxincluded before copy back |
418 | 418 |
delete @$ref{qw(id taxincluded)}; |
419 | 419 |
|
420 |
@wanted_vars = grep({ $_ } @wanted_vars); |
|
420 | 421 |
if (scalar(@wanted_vars) > 0) { |
421 | 422 |
my %h_wanted_vars; |
422 | 423 |
map({ $h_wanted_vars{$_} = 1; } @wanted_vars); |
Auch abrufbar als: Unified diff
Undefinierte Werte aus der Liste der "gewollten Variablen" rauswerfen, weil die Liste ansonsten eventuell nicht leer ist.