View | Details | Raw Unified | Return to bug 10325
Collapse All | Expand All

(-)a/C4/Context.pm (-11 / +17 lines)
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
- 

Return to bug 10325