Revert Bug 11081 - Port Koha::Contrib::Tamil indexer into Koha code base
[koha.git] / 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 || $self->description;
61 }
62
63 =head3 translated_descriptions
64
65 =cut
66
67 sub translated_descriptions {
68     my ( $self ) = @_;
69     my @translated_descriptions = Koha::Localizations->search(
70         {   entity => 'itemtypes',
71             code   => $self->itemtype,
72         }
73     );
74     return [ map {
75         {
76             lang => $_->lang,
77             translation => $_->translation,
78         }
79     } @translated_descriptions ];
80 }
81
82 =head3 type
83
84 =cut
85
86 sub _type {
87     return 'Itemtype';
88 }
89
90 1;