}
if (scalar @corrections) {
- SL::DB->with_transaction(sub {
+ SL::DB->client->with_transaction(sub {
my $q_taxkey_only = qq|UPDATE acc_trans SET taxkey = ? WHERE acc_trans_id = ?|;
my $h_taxkey_only = prepare_query($form, $dbh, $q_taxkey_only);
$h_taxkey_only->finish();
$h_taxkey_chart_id->finish();
- });
+ 1;
+ }) or do { die SL::DB->client->error };
}
$main::lxdebug->leave_sub();
}
$sth->finish();
- });
+ 1;
+ }) or do { die SL::DB->client->error };
}
$main::lxdebug->leave_sub();
$h_taxkey_only->finish();
$h_taxkey_chart->finish();
$h_transdate->finish();
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}
do_query($form, $dbh, qq|DELETE FROM ap WHERE id = ?|, conv_i($params{trans_id}));
do_query($form, $dbh, qq|DELETE FROM gl WHERE id = ?|, conv_i($params{trans_id}));
do_query($form, $dbh, qq|DELETE FROM acc_trans WHERE trans_id = ?|, conv_i($params{trans_id}));
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}