From 516abc48962bde84c1c58ff6bf59d969c962aab9 Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Fri, 3 Feb 2012 12:39:43 +1300 Subject: [PATCH] Bug 7432 : Fixing caching for SQLHelper Signed-off-by: Jared Camins-Esakov --- C4/SQLHelper.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/C4/SQLHelper.pm b/C4/SQLHelper.pm index 41c5a9f5c1..e1cb5d0a9a 100644 --- a/C4/SQLHelper.pm +++ b/C4/SQLHelper.pm @@ -34,12 +34,13 @@ eval { import Memoize::Memcached qw(memoize_memcached); my $memcached = { - servers => [$servers], - key_prefix => C4::Context->config('memcached_namespace') || 'koha', - }; + servers => [$servers], + key_prefix => C4::Context->config('memcached_namespace') || 'koha', + expire_time => 600 + }; # cache for 10 mins - memoize_memcached( '_get_columns', memcached => $memcached, expire_time => 600000 ); #cache for 10 minutes - memoize_memcached( 'GetPrimaryKeys', memcached => $memcached, expire_time => 600000 ); #cache for 10 minutes + memoize_memcached( '_get_columns', memcached => $memcached ); + memoize_memcached( 'GetPrimaryKeys', memcached => $memcached ); } }; -- 2.39.5