Koha/ItemType.pm

   1 package Koha::ItemType;
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it under the
   6 # terms of the GNU General Public License as published by the Free Software
   7 # Foundation; either version 3 of the License, or (at your option) any later
   8 # version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License along
  15 # with Koha; if not, write to the Free Software Foundation, Inc.,
  16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  17
  18 use Modern::Perl;
  19
  20 use Carp;
  21
  22 use C4::Koha;
  23 use C4::Languages;
  24 use Koha::Database;
  25 use Koha::Localizations;
  26
  27 use base qw(Koha::Object);
  28
  29 =head1 NAME
  30
  31 Koha::ItemType - Koha Item type Object class
  32
  33 =head1 API
  34
  35 =head2 Class Methods
  36
  37 =cut
  38
  39 =head3 image_location
  40
  41 =cut
  42
  43 sub image_location {
  44     my ( $self, $interface ) = @_;
  45     return C4::Koha::getitemtypeimagelocation( $interface, $self->SUPER::imageurl );
  46 }
  47
  48 =head3 translated_description
  49
  50 =cut
  51
  52 sub translated_description {
  53     my ( $self, $lang ) = @_;
  54     $lang ||= C4::Languages::getlanguage;
  55     my $translated_description = Koha::Localizations->search({
  56         code => $self->itemtype,
  57         entity => 'itemtypes',
  58         lang => $lang
  59     })->next;
  60     return $translated_description
  61          ? $translated_description->translation
  62          : $self->description;
  63 }
  64
  65 =head3 translated_descriptions
  66
  67 =cut
  68
  69 sub translated_descriptions {
  70     my ( $self ) = @_;
  71     my @translated_descriptions = Koha::Localizations->search(
  72         {   entity => 'itemtypes',
  73             code   => $self->itemtype,
  74         }
  75     );
  76     return [ map {
  77         {
  78             lang => $_->lang,
  79             translation => $_->translation,
  80         }
  81     } @translated_descriptions ];
  82 }
  83
  84 =head3 type
  85
  86 =cut
  87
  88 sub _type {
  89     return 'Itemtype';
  90 }
  91
  92 sub type {
  93     return 'Itemtype';
  94 }
  95
  96 1;