Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 20582: Fix a cache issue in Koha::App::{Opac,Intranet}

Browse source 
This was a workaround I wrote when Koha::Caches->flush_L1_caches was not
flushing all caches correctly. Now it's not needed and it causes
problems, so it must be removed.

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Julian Maurice 2020-08-28 17:39:00 +04:00 committed by Jonathan Druart
parent f6a76aae0c
commit ae0c2b52a2
2 changed files with 2 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Koha/App/Intranet.pm
View file

@ -66,17 +66,7 @@ sub _around_action {
my ($next, $c, $action, $last) = @_;
# Flush memory caches before every request
my $caches = $Koha::Caches::singleton_caches;
if ($caches) {
foreach my $key (keys %$caches) {
my $cache = $caches->{$key};
if (ref $cache->{cache} eq 'Cache::Memory') {
$cache->flush_all;
}
$cache->flush_L1_cache;
}
}
$Koha::Caches::singleton_caches = {};
Koha::Caches->flush_L1_caches();
Koha::Cache::Memory::Lite->flush();
return $next->();

12
Koha/App/Opac.pm
View file

@ -66,17 +66,7 @@ sub _around_action {
my ($next, $c, $action, $last) = @_;
# Flush memory caches before every request
my $caches = $Koha::Caches::singleton_caches;
if ($caches) {
foreach my $key (keys %$caches) {
my $cache = $caches->{$key};
if (ref $cache->{cache} eq 'Cache::Memory') {
$cache->flush_all;
}
$cache->flush_L1_cache;
}
}
$Koha::Caches::singleton_caches = {};
Koha::Caches->flush_L1_caches();
Koha::Cache::Memory::Lite->flush();
return $next->();