- # connect to database
- my $dbh = $form->dbconnect($myconfig);
- my (@values, $query);
-
- map({ push(@values, $form->{$_}); }
- qw(description template_code article_code
- output_numberformat output_dateformat output_longdates));
-
- # id is the old record
- if ($form->{id}) {
- $query =
- "UPDATE language SET " .
- " description = ?, template_code = ?, article_code = ?, " .
- " output_numberformat = ?, output_dateformat = ?, " .
- " output_longdates = ? " .
- "WHERE id = ?";
- push(@values, $form->{id});
- } else {
- $query =
- "INSERT INTO language (" .
- " description, template_code, article_code, " .
- " output_numberformat, output_dateformat, output_longdates" .
- ") VALUES (?, ?, ?, ?, ?, ?)";
- }
- do_query($form, $dbh, $query, @values);
-
- $dbh->disconnect;
+ SL::DB->client->with_transaction(sub {
+ my $dbh = SL::DB->client->dbh;
+ my (@values, $query);
+
+ map({ push(@values, $form->{$_}); }
+ qw(description template_code article_code
+ output_numberformat output_dateformat output_longdates));
+
+ # id is the old record
+ if ($form->{id}) {
+ $query =
+ "UPDATE language SET " .
+ " description = ?, template_code = ?, article_code = ?, " .
+ " output_numberformat = ?, output_dateformat = ?, " .
+ " output_longdates = ? " .
+ "WHERE id = ?";
+ push(@values, $form->{id});
+ } else {
+ $query =
+ "INSERT INTO language (" .
+ " description, template_code, article_code, " .
+ " output_numberformat, output_dateformat, output_longdates" .
+ ") VALUES (?, ?, ?, ?, ?, ?)";
+ }
+ do_query($form, $dbh, $query, @values);
+ 1;
+ }) or do { die SL::DB->client->error };