Revision 84ad2fe8
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/DB/Manager/Part.pm | ||
|---|---|---|
| 35 | 35 |
|
| 36 | 36 |
# this is to make selection like type => { part => 1, service => 1 } work
|
| 37 | 37 |
if ('HASH' eq ref $type) {
|
| 38 |
$type = grep { $type->{$_} } keys %$type;
|
|
| 38 |
$type = [ grep { $type->{$_} } keys %$type ];
|
|
| 39 | 39 |
} |
| 40 | 40 |
|
| 41 | 41 |
my @types = listify($type); |
Auch abrufbar als: Unified diff
Part-Manager: mit Hash-artigem Type richtig umgehen können