|
Lines 34-45
eval {
Link Here
|
| 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 => C4::Context->config('memcached_namespace') || 'koha', |
| 39 |
}; |
39 |
expire_time => 600 |
|
|
40 |
}; # cache for 10 mins |
| 40 |
|
41 |
|
| 41 |
memoize_memcached( '_get_columns', memcached => $memcached, expire_time => 600000 ); #cache for 10 minutes |
42 |
memoize_memcached( '_get_columns', memcached => $memcached ); |
| 42 |
memoize_memcached( 'GetPrimaryKeys', memcached => $memcached, expire_time => 600000 ); #cache for 10 minutes |
43 |
memoize_memcached( 'GetPrimaryKeys', memcached => $memcached ); |
| 43 |
} |
44 |
} |
| 44 |
}; |
45 |
}; |
| 45 |
|
46 |
|
| 46 |
- |
|
|