Bug 19835: Update MARC frameworks to Updates 23+24+25 (Nov 2016, May and Dec 2017)
[koha.git] / Koha / ItemType.pm
blob24be0d2297a3c9f647e4d911351a0ca3802f9bb3
1 package Koha::ItemType;
3 # This file is part of Koha.
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.
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.
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.
18 use Modern::Perl;
20 use Carp;
22 use C4::Koha;
23 use C4::Languages;
24 use Koha::Database;
25 use Koha::Localizations;
27 use base qw(Koha::Object);
29 =head1 NAME
31 Koha::ItemType - Koha Item type Object class
33 =head1 API
35 =head2 Class Methods
37 =cut
39 =head3 image_location
41 =cut
43 sub image_location {
44 my ( $self, $interface ) = @_;
45 return C4::Koha::getitemtypeimagelocation( $interface, $self->SUPER::imageurl );
48 =head3 translated_description
50 =cut
52 sub translated_description {
53 my ( $self, $lang ) = @_;
54 if ( my $translated_description = eval { $self->get_column('translated_description') } ) {
55 # If the value has already been fetched (eg. from sarch_with_localization),
56 # do not search for it again
57 # Note: This is a bit hacky but should be fast
58 return $translated_description
59 ? $translated_description
60 : $self->description;
62 $lang ||= C4::Languages::getlanguage;
63 my $translated_description = Koha::Localizations->search({
64 code => $self->itemtype,
65 entity => 'itemtypes',
66 lang => $lang
67 })->next;
68 return $translated_description
69 ? $translated_description->translation
70 : $self->description;
73 =head3 translated_descriptions
75 =cut
77 sub translated_descriptions {
78 my ( $self ) = @_;
79 my @translated_descriptions = Koha::Localizations->search(
80 { entity => 'itemtypes',
81 code => $self->itemtype,
84 return [ map {
86 lang => $_->lang,
87 translation => $_->translation,
89 } @translated_descriptions ];
94 =head3 can_be_deleted
96 my $can_be_deleted = Koha::ItemType->can_be_deleted();
98 Counts up the number of biblioitems and items with itemtype (code) and hands back the combined number of biblioitems and items with the itemtype
100 =cut
102 sub can_be_deleted {
103 my ($self) = @_;
104 my $nb_items = Koha::Items->search( { itype => $self->itemtype } )->count;
105 my $nb_biblioitems = Koha::Biblioitems->search( { itemtype => $self->itemtype } )->count;
106 return $nb_items + $nb_biblioitems == 0 ? 1 : 0;
109 =head3 type
111 =cut
113 sub _type {
114 return 'Itemtype';