# Copyright 2006 (C) LibLime
# Joshua Ferraro <jmf@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
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);
-
+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('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;
next if $lang_string =~/css$/;
next if $lang_string =~/CVS$/;
next if $lang_string =~/\.txt$/i; #Don't read the readme.txt !
- next if $lang_string =~/img|images|famfam/;
+ next if $lang_string =~/img|images|famfam|sound/;
push @lang_strings, $lang_string;
}
return (@lang_strings);