Revision c078749a
Von Bernd Bleßmann vor mehr als 8 Jahren hinzugefügt
| SL/AccTransCorrections.pm | ||
|---|---|---|
| 779 | 779 |
} |
| 780 | 780 |
|
| 781 | 781 |
if (scalar @corrections) {
|
| 782 |
SL::DB->with_transaction(sub {
|
|
| 782 |
SL::DB->client->with_transaction(sub {
|
|
| 783 | 783 |
my $q_taxkey_only = qq|UPDATE acc_trans SET taxkey = ? WHERE acc_trans_id = ?|; |
| 784 | 784 |
my $h_taxkey_only = prepare_query($form, $dbh, $q_taxkey_only); |
| 785 | 785 |
|
| SL/GL.pm | ||
|---|---|---|
| 50 | 50 |
my ($self, $myconfig, $form) = @_; |
| 51 | 51 |
$main::lxdebug->enter_sub(); |
| 52 | 52 |
|
| 53 |
SL::DB->with_transaction(sub {
|
|
| 53 |
SL::DB->client->with_transaction(sub {
|
|
| 54 | 54 |
do_query($form, SL::DB->client->dbh, qq|DELETE FROM gl WHERE id = ?|, conv_i($form->{id}));
|
| 55 | 55 |
1; |
| 56 | 56 |
}) or do { die SL::DB->client->error };
|
Auch abrufbar als: Unified diff
GL u. AccTransCorrections: signle-dbh: "client" hinzugefügt bei with_transaction