sub set_preference {

sub set_preference {

    my $self = shift;

    my $self = shift;

    my $value = shift;

    my $value = shift;

    my $dbh = C4::Context->dbh or return 0;

    my $dbh = C4::Context->dbh or return 0;

        ON DUPLICATE KEY UPDATE value = VALUES(value)

        ON DUPLICATE KEY UPDATE value = VALUES(value)

    " );

    " );

    $sth->finish;

    $sth->finish;

}

}