[Koha-patches] [PATCH] Failing gracefully if Memoize::Memcached is not installed
Chris Cormack
chris at bigballofwax.co.nz
Mon Aug 24 05:37:00 CEST 2009
---
C4/Languages.pm | 20 +++++++++++---------
1 files changed, 11 insertions(+), 9 deletions(-)
diff --git a/C4/Languages.pm b/C4/Languages.pm
index 6bb9146..971cc96 100644
--- a/C4/Languages.pm
+++ b/C4/Languages.pm
@@ -2,7 +2,7 @@ package C4::Languages;
# Copyright 2006 (C) LibLime
# Joshua Ferraro <jmf at liblime.com>
-#
+# Portions Copyright 2009 Chris Cormack and the Koha Dev Team
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
@@ -25,17 +25,19 @@ use Carp;
use C4::Context;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
-
-use Memoize::Memcached
- memcached => {
+eval {
+ require Memoize::Memcached;
+ import Memoize::Memcached qw(memoize_memcached);
+
+ my $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);
+ };
+ memoize_memcached('getTranslatedLanguages', memcached => $memcached, expire_time => 600); #cache for 10 minutes
+ memoize_memcached('getFrameworkLanguages' , memcached => $memcached, expire_time => 600);
+ memoize_memcached('getAllLanguages', memcached => $memcached, expire_time => 600);
+};
BEGIN {
$VERSION = 3.00;
--
1.6.0.4
More information about the Koha-patches
mailing list