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
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.
25 use Koha::Localizations;
27 use base qw(Koha::Object);
31 Koha::ItemType - Koha Item type Object class
42 $self->rentalcharge(undef) if $self->rentalcharge eq '';
43 $self->defaultreplacecost(undef) if $self->defaultreplacecost eq '';
44 $self->processfee(undef) if $self->processfee eq '';
45 $self->notforloan(0) unless $self->notforloan;
46 $self->hideinopac(0) unless $self->hideinopac;
48 return $self->SUPER::store;
56 my ( $self, $interface ) = @_;
57 return C4::Koha::getitemtypeimagelocation( $interface, $self->SUPER::imageurl );
60 =head3 translated_description
64 sub translated_description {
65 my ( $self, $lang ) = @_;
66 if ( my $translated_description = eval { $self->get_column('translated_description') } ) {
67 # If the value has already been fetched (eg. from sarch_with_localization),
68 # do not search for it again
69 # Note: This is a bit hacky but should be fast
70 return $translated_description
71 ? $translated_description
74 $lang ||= C4::Languages::getlanguage;
75 my $translated_description = Koha::Localizations->search({
76 code => $self->itemtype,
77 entity => 'itemtypes',
80 return $translated_description
81 ? $translated_description->translation
85 =head3 translated_descriptions
89 sub translated_descriptions {
91 my @translated_descriptions = Koha::Localizations->search(
92 { entity => 'itemtypes',
93 code => $self->itemtype,
99 translation => $_->translation,
101 } @translated_descriptions ];
106 =head3 can_be_deleted
108 my $can_be_deleted = Koha::ItemType->can_be_deleted();
110 Counts up the number of biblioitems and items with itemtype (code) and hands back the combined number of biblioitems and items with the itemtype
116 my $nb_items = Koha::Items->search( { itype => $self->itemtype } )->count;
117 my $nb_biblioitems = Koha::Biblioitems->search( { itemtype => $self->itemtype } )->count;
118 return $nb_items + $nb_biblioitems == 0 ? 1 : 0;