SL/DB/Manager/PartsClassification.pm

   1 # This file has been auto-generated only because it didn't exist.
   2 # Feel free to modify it at will; it will not be overwritten automatically.
   3
   4 package SL::DB::Manager::PartsClassification;
   5
   6 use strict;
   7
   8 use parent qw(SL::DB::Helper::Manager);
   9 use SL::DB::Helper::Sorted;
  10
  11 sub object_class { 'SL::DB::PartsClassification' }
  12
  13 __PACKAGE__->make_manager_methods;
  14
  15
  16 sub get_abbreviation {
  17   my ($class,$id) = @_;
  18   my $obj = $class->get_first(query => [ id => $id ]);
  19   return $obj->abbreviation?$obj->abbreviation:undef;
  20 }
  21
  22 1;