|
Lines 542-548
sub preference {
Link Here
|
| 542 |
my $self = shift; |
542 |
my $self = shift; |
| 543 |
my $var = shift; # The system preference to return |
543 |
my $var = shift; # The system preference to return |
| 544 |
|
544 |
|
| 545 |
my $cached_var = $syspref_cache->get_from_cache("syspref_$var") if $use_syspref_cache; |
545 |
my $cached_var; |
|
|
546 |
$cached_var = $syspref_cache->get_from_cache("syspref_$var") if $use_syspref_cache; |
| 546 |
return $cached_var if defined $cached_var; |
547 |
return $cached_var if defined $cached_var; |
| 547 |
|
548 |
|
| 548 |
my $dbh = C4::Context->dbh or return 0; |
549 |
my $dbh = C4::Context->dbh or return 0; |
| 549 |
- |
|
|