Koha/Koha/ItemType.pm
Jonathan Druart 53ce807f6e Bug 17835: Do not reselect translated_description if comes from search_with_localization
If the Koha::ItemType object has been instanciated from a call to
Koha::ItemTypes->search_with_localization, we already have the
translated_description value. So there is no need to fetch it again from
the DB. This is what this trick does: if the translated_description
column exist in the DBIx::Class result source's column list, that means
the value has already been retrieved.

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Lari Taskula <lari.taskula@jns.fi>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
2017-04-14 10:43:51 -04:00

100 lines
2.4 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use Modern::Perl;
use Carp;
use C4::Koha;
use C4::Languages;
use Koha::Database;
use Koha::Localizations;
use base qw(Koha::Object);
=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 type
=cut
sub _type {
return 'Itemtype';
}
1;