Part-Manager: mit Hash-artigem Type richtig umgehen können

[mfinanz.git] / SL / DB / Manager / Part.pm

diff --git a/SL/DB/Manager/Part.pm b/SL/DB/Manager/Part.pm
index 159f59998d96064de4e8942ffbe5f22ac43ddad1..fccbbd95b49ccd6566a82e1760587e8cfad8c482 100644 (file)
--- a/SL/DB/Manager/Part.pm
+++ b/SL/DB/Manager/Part.pm
@@ -35,7 +35,7 @@ sub type_filter {
 
   # this is to make selection like type => { part => 1, service => 1 } work
   if ('HASH' eq ref $type) {
-    $type = grep { $type->{$_} } keys %$type;
+    $type = [ grep { $type->{$_} } keys %$type ];
   }
 
   my @types = listify($type);