View | Details | Raw Unified | Return to bug 11167
Collapse All | Expand All

(-)a/C4/SQLHelper.pm (-3 / +2 lines)
Lines 28-41 require Exporter; Link Here
28
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
28
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
29
29
30
eval {
30
eval {
31
    my $servers = C4::Context->config('memcached_servers');
31
    my $servers = $ENV{'MEMCACHED_SERVERS'};
32
    if ($servers) {
32
    if ($servers) {
33
        require Memoize::Memcached;
33
        require Memoize::Memcached;
34
        import Memoize::Memcached qw(memoize_memcached);
34
        import Memoize::Memcached qw(memoize_memcached);
35
35
36
        my $memcached = {
36
        my $memcached = {
37
            servers     => [$servers],
37
            servers     => [$servers],
38
            key_prefix  => C4::Context->config('memcached_namespace') || 'koha',
38
            key_prefix  => $ENV{'MEMCACHED_NAMESPACE'} || 'koha',
39
            expire_time => 600
39
            expire_time => 600
40
        };    # cache for 10 mins
40
        };    # cache for 10 mins
41
41
42
- 

Return to bug 11167