From 615afc805a1879f957e087c08764886a10fd8e8e Mon Sep 17 00:00:00 2001 From: Robin Sheat Date: Tue, 3 Jun 2014 10:41:46 +1200 Subject: [PATCH] Bug 9967 - include $branch_limit in the cache key Make the caching more correct. Also removes a warn that got left behind. --- C4/Koha.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index 42da37b..471e35a 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -1085,16 +1085,16 @@ sub GetAuthorisedValues { # what it's for. # Is this cached already? - $opac = $opac ? 1 : 0; # normalise to be safe + $opac = $opac ? 1 : 0; # normalise to be safe + my $branch_limit = + C4::Context->userenv ? C4::Context->userenv->{"branch"} : ""; my $selected_key = defined($selected) ? $selected : ''; - my $cache_key = "AuthorisedValues-$category-$selected_key-$opac"; - my $cache = Koha::Cache->get_instance(); - my $result = $cache->get_from_cache($cache_key); -warn "fetched $result from cache"; + my $cache_key = + "AuthorisedValues-$category-$selected_key-$opac-$branch_limit"; + my $cache = Koha::Cache->get_instance(); + my $result = $cache->get_from_cache($cache_key); return $result if $result; - my $branch_limit = - C4::Context->userenv ? C4::Context->userenv->{"branch"} : ""; my @results; my $dbh = C4::Context->dbh; my $query = qq{ -- 1.8.3.2