|
Lines 504-515
with this method.
Link Here
|
| 504 |
|
504 |
|
| 505 |
=cut |
505 |
=cut |
| 506 |
|
506 |
|
| 507 |
my $syspref_cache = Koha::Cache->get_instance(); |
507 |
my $syspref_cache; |
| 508 |
my $use_syspref_cache = 1; |
508 |
my $use_syspref_cache = 1; |
| 509 |
sub preference { |
509 |
sub preference { |
| 510 |
my $self = shift; |
510 |
my $self = shift; |
| 511 |
my $var = shift; # The system preference to return |
511 |
my $var = shift; # The system preference to return |
| 512 |
|
512 |
|
|
|
513 |
$syspref_cache ||= Koha::Cache->get_instance(); |
| 513 |
$var = lc $var; |
514 |
$var = lc $var; |
| 514 |
|
515 |
|
| 515 |
my $cached_var = $use_syspref_cache |
516 |
my $cached_var = $use_syspref_cache |
| 516 |
- |
|
|