Lines 540-546
my $use_syspref_cache = 1;
Link Here
|
540 |
|
540 |
|
541 |
sub preference { |
541 |
sub preference { |
542 |
my $self = shift; |
542 |
my $self = shift; |
543 |
my $var = lc(shift); # The system preference to return |
543 |
my $var = shift; # The system preference to return |
544 |
|
544 |
|
545 |
if ($use_syspref_cache && exists $sysprefs{$var}) { |
545 |
if ($use_syspref_cache && exists $sysprefs{$var}) { |
546 |
return $sysprefs{$var}; |
546 |
return $sysprefs{$var}; |
Lines 548-562
sub preference {
Link Here
|
548 |
|
548 |
|
549 |
my $dbh = C4::Context->dbh or return 0; |
549 |
my $dbh = C4::Context->dbh or return 0; |
550 |
|
550 |
|
551 |
# Look up systempreferences.variable==$var |
551 |
my $value; |
552 |
my $sql = <<'END_SQL'; |
552 |
if ( defined $ENV{"OVERRIDE_SYSPREF_$var"} ) { |
553 |
SELECT value |
553 |
$value = $ENV{"OVERRIDE_SYSPREF_$var"}; |
554 |
FROM systempreferences |
554 |
} else { |
555 |
WHERE variable=? |
555 |
# Look up systempreferences.variable==$var |
556 |
LIMIT 1 |
556 |
my $sql = q{ |
557 |
END_SQL |
557 |
SELECT value |
558 |
$sysprefs{$var} = $dbh->selectrow_array( $sql, {}, $var ); |
558 |
FROM systempreferences |
559 |
return $sysprefs{$var}; |
559 |
WHERE variable = ? |
|
|
560 |
LIMIT 1 |
561 |
}; |
562 |
$value = $dbh->selectrow_array( $sql, {}, $var ); |
563 |
} |
564 |
|
565 |
$sysprefs{$var} = $value; |
566 |
return $value; |
560 |
} |
567 |
} |
561 |
|
568 |
|
562 |
sub boolean_preference { |
569 |
sub boolean_preference { |
563 |
- |
|
|