[Koha-patches] [PATCH] Adding some caching to C4::Biblio, to GetMarcStructure

[Chris Cormack]

---
 C4/Biblio.pm |   13 +++++++++++++
 1 files changed, 13 insertions(+), 0 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 569e09e..04d404c 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -114,6 +114,19 @@ BEGIN {
 	);
 }
 
+eval {
+    my $servers = C4::Context->config('memcached_servers');
+    if ($servers) {
+        require Memoize::Memcached;
+        import Memoize::Memcached qw(memoize_memcached);
+
+        my $memcached = {
+            servers    => [ $servers ],
+            key_prefix => C4::Context->config('memcached_namespace') || 'koha',
+        };
+        memoize_memcached('GetMarcStructure', memcached => $memcached, expire_time => 600); #cache for 10 minutes
+    }
+};
 =head1 NAME
 
 C4::Biblio - cataloging management functions
-- 
1.6.0.4