- if ($tuple && $tuple->{id}) {
- $tuple->{value} = $value;
- $self->_update($tuple);
- } else {
- my $query = 'INSERT INTO user_preferences (login, namespace, version, key, value) VALUES (?, ?, ?, ?, ?)';
- do_query($::form, $::form->get_standard_dbh, $query, $self->login, $self->namespace, $self->current_version, $key, $value);
- }
+ if ($tuple && $tuple->{id}) {
+ $tuple->{value} = $value;
+ $self->_update($tuple);
+ } else {
+ my $query = 'INSERT INTO user_preferences (login, namespace, version, key, value) VALUES (?, ?, ?, ?, ?)';
+ do_query($::form, $::form->get_standard_dbh, $query, $self->login, $self->namespace, $self->current_version, $key, $value);
+ }
+ 1;
+ }) or do { die SL::DB->client->error };