From 6b24ddf91c74676ab4adca21b6cf2cc8402f448e Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 24 Aug 2009 07:52:46 -0400 Subject: [PATCH] graceful degradation if memcached option is not configured in koha-conf.xml Signed-off-by: Galen Charlton --- C4/Languages.pm | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/C4/Languages.pm b/C4/Languages.pm index 971cc96ef4..ab5761413c 100644 --- a/C4/Languages.pm +++ b/C4/Languages.pm @@ -26,17 +26,20 @@ use C4::Context; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); eval { - require Memoize::Memcached; - import Memoize::Memcached qw(memoize_memcached); + my $servers = C4::Context->config('memcached_servers'); + if ($servers) { + 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', 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); + my $memcached = { + servers => [ $servers ], + key_prefix => C4::Context->config('memcached_namespace') || 'koha', + }; + + 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 { -- 2.20.1