Revision 7cd6d451
Von Martin Helmling martin.helmling@octosoft.eu vor fast 8 Jahren hinzugefügt
| SL/DB/Manager/PartClassification.pm | ||
|---|---|---|
|
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;
|
||
|
|
||
|
sub classification_filter {
|
||
|
my ($class, $classification, $prefix) = @_;
|
||
|
|
||
|
return () unless $classification;
|
||
|
|
||
|
$prefix //= '';
|
||
|
|
||
|
my @classifications = grep { $_ } listify($classification);
|
||
|
return ( $prefix . 'classification_id' => \@classifications );
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
|
||
|
__END__
|
||
|
|
||
|
=encoding utf-8
|
||
|
|
||
|
=head1 NAME
|
||
|
|
||
|
SL::DB::Manager::PartClassification
|
||
|
|
||
|
=cut
|
||
Auch abrufbar als: Unified diff
classification_filter ist nicht mehr für Partpicker notwendig