|
Lines 525-537
sub preference {
Link Here
|
| 525 |
if ( defined $ENV{"OVERRIDE_SYSPREF_$var"} ) { |
525 |
if ( defined $ENV{"OVERRIDE_SYSPREF_$var"} ) { |
| 526 |
$value = $ENV{"OVERRIDE_SYSPREF_$var"}; |
526 |
$value = $ENV{"OVERRIDE_SYSPREF_$var"}; |
| 527 |
} else { |
527 |
} else { |
| 528 |
my $syspref; |
528 |
map { $sysprefs{lc $_->{variable}} = $_->{value} or undef} @{ Koha::Config::SysPrefs->search()->unblessed }; |
| 529 |
eval { $syspref = Koha::Config::SysPrefs->find( lc $var ) }; |
|
|
| 530 |
$value = $syspref ? $syspref->value() : undef; |
| 531 |
} |
529 |
} |
| 532 |
|
530 |
|
| 533 |
$sysprefs{lc $var} = $value; |
531 |
return $sysprefs{lc $var}; |
| 534 |
return $value; |
|
|
| 535 |
} |
532 |
} |
| 536 |
|
533 |
|
| 537 |
sub boolean_preference { |
534 |
sub boolean_preference { |
| 538 |
- |
|
|