From 127b68337b586b67278b5e3a9a0e6943f4e39312 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 13 Dec 2021 12:25:29 +0100 Subject: [PATCH] Bug 26587: Use Koha::Cache::Memory::Lite Signed-off-by: Nick Clemens --- Koha/Template/Plugin/Branches.pm | 26 +++++++++++--------------- 1 file changed, 11 insertions(+), 15 deletions(-) diff --git a/Koha/Template/Plugin/Branches.pm b/Koha/Template/Plugin/Branches.pm index c4f552a71f..a4db89b61c 100644 --- a/Koha/Template/Plugin/Branches.pm +++ b/Koha/Template/Plugin/Branches.pm @@ -25,26 +25,22 @@ use base qw( Template::Plugin ); use C4::Koha; use C4::Context; +use Koha::Cache::Memory::Lite; use Koha::Libraries; -sub new { - my ($self) = shift; - my (@params) = @_; - $self = $self->SUPER::new(@params); - #Initialize a cache of libraries for lookups of names,urls etc. - $self->{libraries} = {}; - - return $self; -} - sub GetName { my ( $self, $branchcode ) = @_; - unless (exists $self->{libraries}->{$branchcode} ){ - my $l = Koha::Libraries->find($branchcode); - $self->{libraries}->{$branchcode} = $l if $l; - } - return $self->{libraries}->{$branchcode} ? $self->{libraries}->{$branchcode}->branchname : q{}; + my $memory_cache = Koha::Cache::Memory::Lite->get_instance; + my $cache_key = "Library_branchname:" . $branchcode; + my $cached = $memory_cache->get_from_cache($cache_key); + return $cached if $cached; + + my $l = Koha::Libraries->find($branchcode); + + my $branchname = $l ? $l->branchname : q{}; + $memory_cache->set_in_cache( $cache_key, $branchname ); + return $branchname; } sub GetLoggedInBranchcode { -- 2.20.1