gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 26587: Use Koha::Cache::Memory::Lite 

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2021-12-13 12:25:29 +01:00 committed by Kyle Hall
parent 7bcd2982bb
commit 64d8d5beb2
1 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Koha/Template/Plugin/Branches.pm
View File

@ -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 {