Revision cafc615b
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/RC.pm | ||
|---|---|---|
|
package RC;
|
||
|
|
||
|
use SL::DBUtils;
|
||
|
use SL::DB;
|
||
|
|
||
|
use strict;
|
||
|
|
||
| ... | ... | |
|
|
||
|
my ($self, $myconfig, $form) = @_;
|
||
|
|
||
|
# connect to database
|
||
|
my $dbh = $form->dbconnect($myconfig);
|
||
|
my $dbh = SL::DB->client->dbh;
|
||
|
|
||
|
my $query =
|
||
|
qq|SELECT accno, description | .
|
||
| ... | ... | |
|
qq|ORDER BY accno|;
|
||
|
|
||
|
$form->{PR} = selectall_hashref_query($form, $dbh, $query);
|
||
|
$dbh->disconnect;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
| ... | ... | |
|
|
||
|
my ($self, $myconfig, $form) = @_;
|
||
|
|
||
|
# connect to database
|
||
|
my $dbh = $form->dbconnect($myconfig);
|
||
|
|
||
|
my ($query, $i);
|
||
|
SL::DB->client->with_transaction(sub {
|
||
|
my $dbh = SL::DB->client->dbh;
|
||
|
|
||
|
# clear flags
|
||
|
for $i (1 .. $form->{rowcount}) {
|
||
|
if ($form->{"cleared_$i"}) {
|
||
|
$query =
|
||
|
qq|UPDATE acc_trans SET cleared = '1' | .
|
||
|
qq|WHERE acc_trans_id = ?|;
|
||
|
do_query($form, $dbh, $query, $form->{"oid_$i"});
|
||
|
my ($query, $i);
|
||
|
|
||
|
# clear fx_transaction
|
||
|
if ($form->{"fxoid_$i"}) {
|
||
|
# clear flags
|
||
|
for $i (1 .. $form->{rowcount}) {
|
||
|
if ($form->{"cleared_$i"}) {
|
||
|
$query =
|
||
|
qq|UPDATE acc_trans SET cleared = '1' | .
|
||
|
qq|WHERE acc_trans_id = ?|;
|
||
|
do_query($form, $dbh, $query, $form->{"fxoid_$i"});
|
||
|
do_query($form, $dbh, $query, $form->{"oid_$i"});
|
||
|
|
||
|
# clear fx_transaction
|
||
|
if ($form->{"fxoid_$i"}) {
|
||
|
$query =
|
||
|
qq|UPDATE acc_trans SET cleared = '1' | .
|
||
|
qq|WHERE acc_trans_id = ?|;
|
||
|
do_query($form, $dbh, $query, $form->{"fxoid_$i"});
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$dbh->disconnect;
|
||
|
1;
|
||
|
}) or do { die SL::DB->client->error };
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
Auch abrufbar als: Unified diff
RC: single-dbh disconnects