Jonathan Druart
7d8b96803f
Bug 9978 should have fixed them all, but some were missing. We want all the license statements part of Koha to be identical, and using the GPLv3 statement. Signed-off-by: David Nind <david@davidnind.com> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
150 lines
3.6 KiB
Perl
150 lines
3.6 KiB
Perl
package Koha::ItemType;
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use Carp;
|
|
|
|
use C4::Koha;
|
|
use C4::Languages;
|
|
use Koha::Database;
|
|
use Koha::CirculationRules;
|
|
use Koha::Localizations;
|
|
|
|
use base qw(Koha::Object Koha::Object::Limit::Library);
|
|
|
|
=head1 NAME
|
|
|
|
Koha::ItemType - Koha Item type Object class
|
|
|
|
=head1 API
|
|
|
|
=head2 Class methods
|
|
|
|
=cut
|
|
|
|
=head3 image_location
|
|
|
|
=cut
|
|
|
|
sub image_location {
|
|
my ( $self, $interface ) = @_;
|
|
return C4::Koha::getitemtypeimagelocation( $interface, $self->SUPER::imageurl );
|
|
}
|
|
|
|
=head3 translated_description
|
|
|
|
=cut
|
|
|
|
sub translated_description {
|
|
my ( $self, $lang ) = @_;
|
|
if ( my $translated_description = eval { $self->get_column('translated_description') } ) {
|
|
# If the value has already been fetched (eg. from sarch_with_localization),
|
|
# do not search for it again
|
|
# Note: This is a bit hacky but should be fast
|
|
return $translated_description
|
|
? $translated_description
|
|
: $self->description;
|
|
}
|
|
$lang ||= C4::Languages::getlanguage;
|
|
my $translated_description = Koha::Localizations->search({
|
|
code => $self->itemtype,
|
|
entity => 'itemtypes',
|
|
lang => $lang
|
|
})->next;
|
|
return $translated_description
|
|
? $translated_description->translation
|
|
: $self->description;
|
|
}
|
|
|
|
=head3 translated_descriptions
|
|
|
|
=cut
|
|
|
|
sub translated_descriptions {
|
|
my ( $self ) = @_;
|
|
my @translated_descriptions = Koha::Localizations->search(
|
|
{ entity => 'itemtypes',
|
|
code => $self->itemtype,
|
|
}
|
|
);
|
|
return [ map {
|
|
{
|
|
lang => $_->lang,
|
|
translation => $_->translation,
|
|
}
|
|
} @translated_descriptions ];
|
|
}
|
|
|
|
=head3 can_be_deleted
|
|
|
|
my $can_be_deleted = Koha::ItemType->can_be_deleted();
|
|
|
|
Counts up the number of biblioitems and items with itemtype (code) and hands back the combined number of biblioitems and items with the itemtype
|
|
|
|
=cut
|
|
|
|
sub can_be_deleted {
|
|
my ($self) = @_;
|
|
my $nb_items = Koha::Items->search( { itype => $self->itemtype } )->count;
|
|
my $nb_biblioitems = Koha::Biblioitems->search( { itemtype => $self->itemtype } )->count;
|
|
return $nb_items + $nb_biblioitems == 0 ? 1 : 0;
|
|
}
|
|
|
|
=head3 may_article_request
|
|
|
|
Returns true if it is likely possible to make an article request for
|
|
this item type.
|
|
Optional parameter: categorycode (for patron).
|
|
|
|
=cut
|
|
|
|
sub may_article_request {
|
|
my ( $self, $params ) = @_;
|
|
return q{} if !C4::Context->preference('ArticleRequests');
|
|
my $itemtype = $self->itemtype;
|
|
my $category = $params->{categorycode};
|
|
|
|
my $guess = Koha::CirculationRules->guess_article_requestable_itemtypes({
|
|
$category ? ( categorycode => $category ) : (),
|
|
});
|
|
return ( $guess->{ $itemtype // q{} } || $guess->{ '*' } ) ? 1 : q{};
|
|
}
|
|
|
|
=head3 _library_limits
|
|
|
|
configure library limits
|
|
|
|
=cut
|
|
|
|
sub _library_limits {
|
|
return {
|
|
class => "ItemtypesBranch",
|
|
id => "itemtype",
|
|
library => "branchcode",
|
|
};
|
|
}
|
|
|
|
=head3 type
|
|
|
|
=cut
|
|
|
|
sub _type {
|
|
return 'Itemtype';
|
|
}
|
|
|
|
1;
|