Revision d416d4c4
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
SL/IR.pm | ||
---|---|---|
1250 | 1250 |
# remove id and taxincluded before copy back |
1251 | 1251 |
delete @$ref{qw(id taxincluded)}; |
1252 | 1252 |
|
1253 |
@wanted_vars = grep({ $_ } @wanted_vars); |
|
1253 | 1254 |
if (scalar(@wanted_vars) > 0) { |
1254 | 1255 |
my %h_wanted_vars; |
1255 | 1256 |
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.