Lines 401-407
with this method.
Link Here
|
401 |
|
401 |
|
402 |
=cut |
402 |
=cut |
403 |
|
403 |
|
404 |
my $syspref_cache = Koha::Caches->get_instance('syspref'); |
404 |
my $syspref_cache; |
405 |
my $use_syspref_cache = 1; |
405 |
my $use_syspref_cache = 1; |
406 |
sub preference { |
406 |
sub preference { |
407 |
my $self = shift; |
407 |
my $self = shift; |
Lines 413-419
sub preference {
Link Here
|
413 |
$var = lc $var; |
413 |
$var = lc $var; |
414 |
|
414 |
|
415 |
if ($use_syspref_cache) { |
415 |
if ($use_syspref_cache) { |
416 |
$syspref_cache = Koha::Cache->get_instance() unless $syspref_cache; |
416 |
$syspref_cache = Koha::Caches->get_instance('syspref') unless $syspref_cache; |
417 |
my $cached_var = $syspref_cache->get_from_cache("syspref_$var"); |
417 |
my $cached_var = $syspref_cache->get_from_cache("syspref_$var"); |
418 |
return $cached_var if defined $cached_var; |
418 |
return $cached_var if defined $cached_var; |
419 |
} |
419 |
} |