From 27c1d81a87e2854b3065d955de9eb2d2b1a9b339 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 Content-Type: text/plain; charset="UTF-8" Signed-off-by: Jared Camins-Esakov --- C4/SQLHelper.pm | 11 ++++++----- 1 files changed, 6 insertions(+), 5 deletions(-) diff --git a/C4/SQLHelper.pm b/C4/SQLHelper.pm index 41c5a9f..e1cb5d0 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 ); } }; -- 1.7.2.5