From e552cfe29449972dcf094f5dfe8c3084d1d6879e Mon Sep 17 00:00:00 2001
From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Fri, 3 Feb 2012 12:39:43 +1300
Subject: [PATCH] Bug 7432 : Fixing caching for SQLHelper

Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
(cherry picked from commit 516abc48962bde84c1c58ff6bf59d969c962aab9)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
---
 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