sub set_preference {
my ( $self, $variable, $value, $explanation, $type, $options ) = @_;
my $variable_case = $variable;
$variable = lc $variable;
my $syspref = Koha::Config::SysPrefs->find($variable);
)->store;
} else {
$syspref = Koha::Config::SysPref->new(
{ variable => $variable,
{ variable => $variable_case,
value => $value,
explanation => $explanation || undef,
type => $type,
-