|
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 |
- |
|
|