From 2c82872dcbea097932268573b05bc7e0f64f8af7 Mon Sep 17 00:00:00 2001
From: Chris Cormack <chris@bigballofwax.co.nz>
Date: Mon, 24 Aug 2009 12:31:49 +1200
Subject: [PATCH] Starting work on memoizing expensive functions with
 Memoize::Memcached

A patch will follow with the changes to the koha-conf.xml and with instructions on installing memcached

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 C4/Languages.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/C4/Languages.pm b/C4/Languages.pm
index a082b1f8b5..6bb9146447 100644
--- a/C4/Languages.pm
+++ b/C4/Languages.pm
@@ -25,6 +25,18 @@ use Carp;
 use C4::Context;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
 
+
+use Memoize::Memcached
+      memcached => {
+        servers    => [ C4::Context->config('memcached_servers') ],
+        key_prefix => C4::Context->config('memcached_namespace'),
+      };
+
+memoize_memcached('getTranslatedLanguages', expire_time => 600); #cache for 10 minutes
+memoize_memcached('getFrameworkLanguages' , expire_time => 600);
+memoize_memcached('getAllLanguages',        expire_time => 600);
+
+
 BEGIN {
     $VERSION = 3.00;
     require Exporter;
-- 
2.20.1