[Koha-patches] [PATCH] graceful degradation if memcached option is not configured in koha-conf.xml
Galen Charlton
gmcharlt at gmail.com
Mon Aug 24 13:53:50 CEST 2009
Signed-off-by: Galen Charlton <gmcharlt at gmail.com>
---
C4/Languages.pm | 21 ++++++++++++---------
1 files changed, 12 insertions(+), 9 deletions(-)
diff --git a/C4/Languages.pm b/C4/Languages.pm
index 971cc96..ab57614 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 {
--
1.6.3.3
More information about the Koha-patches
mailing list