X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/219d88ab03186a74e5dd474175e49bd74dacf15f..c954dea7c1b814d66b8c31d04fa70a1bbbcce71e:/SL/DB/Manager/PartClassification.pm

diff --git a/SL/DB/Manager/PartClassification.pm b/SL/DB/Manager/PartClassification.pm
index c00bea76a..9730f4482 100644
--- a/SL/DB/Manager/PartClassification.pm
+++ b/SL/DB/Manager/PartClassification.pm
@@ -9,6 +9,17 @@ sub object_class { 'SL::DB::PartClassification' }
 
 __PACKAGE__->make_manager_methods;
 
+sub classification_filter {
+  my ($class, $classification, $prefix) = @_;
+
+  return () unless $classification;
+
+  $prefix //= '';
+
+  my @classifications = grep { $_ } listify($classification);
+  return ( $prefix . 'classification_id' => \@classifications );
+}
+
 1;