kivitendo/SL/DB/Manager/PartClassification.pm @ 99b8dbab
| 65d2537d | Martin Helmling | package SL::DB::Manager::PartClassification;
|
||
use strict;
|
||||
use parent qw(SL::DB::Helper::Manager);
|
||||
use SL::DB::Helper::Sorted;
|
||||
sub object_class { 'SL::DB::PartClassification' }
|
||||
__PACKAGE__->make_manager_methods;
|
||||
| 3a1b684b | Martin Helmling | sub classification_filter {
|
||
my ($class, $classification, $prefix) = @_;
|
||||
return () unless $classification;
|
||||
$prefix //= '';
|
||||
my @classifications = grep { $_ } listify($classification);
|
||||
return ( $prefix . 'classification_id' => \@classifications );
|
||||
}
|
||||
| 65d2537d | Martin Helmling | 1;
|
||
__END__
|
||||
=encoding utf-8
|
||||
=head1 NAME
|
||||
SL::DB::Manager::PartClassification
|
||||
=cut
|