1 package SL::DB::Manager::Unit;
5 use SL::DB::Helper::Manager;
6 use base qw(SL::DB::Helper::Manager);
8 use SL::DB::Helper::Sorted;
9 use SL::DB::Helper::Filtered;
11 sub object_class { 'SL::DB::Unit' }
13 __PACKAGE__->make_manager_methods;
14 __PACKAGE__->add_filter_specs(
15 convertible_to => sub {
16 my ($key, $value, $prefix) = @_;
17 return __PACKAGE__->convertible_to_filter($key, $value, $prefix);
22 return ( default => [ 'sortkey', 1 ],
23 columns => { SIMPLE => 'ALL',
24 name => 'lower(name)',
28 sub convertible_to_filter {
29 my ($class, $key, $unit_name, $prefix) = @_;
31 return () unless $unit_name;
35 my $unit = $class->find_by(name => $unit_name);
37 $::lxdebug->warn("Unit manager: No unit with name $unit_name");
41 return ("${prefix}name" => [ map { $_->name } @{ $unit->convertible_units } ]);