From 9a4616d42ef60070f5cf73c34a6eb1887a24ad60 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 17 Mar 2014 13:33:43 +0100 Subject: [PATCH] Bug 11944: TT Plugins should not encode strings Signed-off-by: Paola Rossi --- Koha/Template/Plugin/AuthorisedValues.pm | 5 +---- Koha/Template/Plugin/Branches.pm | 3 +-- Koha/Template/Plugin/ItemTypes.pm | 1 - 3 files changed, 2 insertions(+), 7 deletions(-) diff --git a/Koha/Template/Plugin/AuthorisedValues.pm b/Koha/Template/Plugin/AuthorisedValues.pm index 5b37f68..156a83e 100644 --- a/Koha/Template/Plugin/AuthorisedValues.pm +++ b/Koha/Template/Plugin/AuthorisedValues.pm @@ -22,8 +22,6 @@ use Modern::Perl; use Template::Plugin; use base qw( Template::Plugin ); -use Encode qw{encode is_utf8}; - use C4::Koha; =pod @@ -40,8 +38,7 @@ The parameters are identical to those used by the subroutine C4::Koha::GetAuthor sub GetByCode { my ( $self, $category, $code, $opac ) = @_; - my $av = GetAuthorisedValueByCode( $category, $code, $opac ); - return $av; + return GetAuthorisedValueByCode( $category, $code, $opac ); } 1; diff --git a/Koha/Template/Plugin/Branches.pm b/Koha/Template/Plugin/Branches.pm index 8d6359d..4f1da48 100644 --- a/Koha/Template/Plugin/Branches.pm +++ b/Koha/Template/Plugin/Branches.pm @@ -21,7 +21,6 @@ use Modern::Perl; use Template::Plugin; use base qw( Template::Plugin ); -use Encode qw{encode is_utf8}; use C4::Koha; use C4::Context; @@ -33,7 +32,7 @@ sub GetName { my $sth = C4::Context->dbh->prepare($query); $sth->execute($branchcode); my $b = $sth->fetchrow_hashref(); - return $b->{branchname}; + return $b ? $b->{'branchname'} : q{}; } sub GetLoggedInBranchcode { diff --git a/Koha/Template/Plugin/ItemTypes.pm b/Koha/Template/Plugin/ItemTypes.pm index c913189..941ce03 100644 --- a/Koha/Template/Plugin/ItemTypes.pm +++ b/Koha/Template/Plugin/ItemTypes.pm @@ -21,7 +21,6 @@ use Modern::Perl; use Template::Plugin; use base qw( Template::Plugin ); -use Encode qw{encode decode}; use C4::Koha; -- 1.7.10.4