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 sub store {
  40     my ($self) = @_;
  41
  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;
  47
  48     return $self->SUPER::store;
  49 }
  50
  51 =head3 image_location
  52
  53 =cut
  54
  55 sub image_location {
  56     my ( $self, $interface ) = @_;
  57     return C4::Koha::getitemtypeimagelocation( $interface, $self->SUPER::imageurl );
  58 }
  59
  60 =head3 translated_description
  61
  62 =cut
  63
  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
  72              : $self->description;
  73     }
  74     $lang ||= C4::Languages::getlanguage;
  75     my $translated_description = Koha::Localizations->search({
  76         code => $self->itemtype,
  77         entity => 'itemtypes',
  78         lang => $lang
  79     })->next;
  80     return $translated_description
  81          ? $translated_description->translation
  82          : $self->description;
  83 }
  84
  85 =head3 translated_descriptions
  86
  87 =cut
  88
  89 sub translated_descriptions {
  90     my ( $self ) = @_;
  91     my @translated_descriptions = Koha::Localizations->search(
  92         {   entity => 'itemtypes',
  93             code   => $self->itemtype,
  94         }
  95     );
  96     return [ map {
  97         {
  98             lang => $_->lang,
  99             translation => $_->translation,
 100         }
 101     } @translated_descriptions ];
 102 }
 103
 104
 105
 106 =head3 can_be_deleted
 107
 108 my $can_be_deleted = Koha::ItemType->can_be_deleted();
 109
 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
 111
 112 =cut
 113
 114 sub can_be_deleted {
 115     my ($self) = @_;
 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;
 119 }
 120
 121 =head3 type
 122
 123 =cut
 124
 125 sub _type {
 126     return 'Itemtype';
 127 }
 128
 129 1;