Revision 99ae8507
Von Sven Schöling vor etwa 8 Jahren hinzugefügt
SL/CA.pm | ||
---|---|---|
40 | 40 |
package CA; |
41 | 41 |
use Data::Dumper; |
42 | 42 |
use SL::DBUtils; |
43 |
use SL::DB; |
|
43 | 44 |
|
44 | 45 |
sub all_accounts { |
45 | 46 |
$main::lxdebug->enter_sub(); |
... | ... | |
49 | 50 |
my (%amount, $acc_cash_where); |
50 | 51 |
|
51 | 52 |
# connect to database |
52 |
my $dbh = $form->dbconnect($myconfig);
|
|
53 |
my $dbh = SL::DB->client->dbh;
|
|
53 | 54 |
|
54 | 55 |
# bug 1071 Warum sollte bei Erreichen eines neuen Jahres die Kontenübersicht nur noch die |
55 | 56 |
# bereits bebuchten Konten anzeigen? |
... | ... | |
134 | 135 |
} |
135 | 136 |
|
136 | 137 |
$sth->finish; |
137 |
$dbh->disconnect; |
|
138 | 138 |
|
139 | 139 |
$main::lxdebug->leave_sub(); |
140 | 140 |
} |
... | ... | |
144 | 144 |
|
145 | 145 |
my ($self, $myconfig, $form) = @_; |
146 | 146 |
|
147 |
# connect to database |
|
148 |
my $dbh = $form->dbconnect($myconfig); |
|
147 |
my $dbh = SL::DB->client->dbh; |
|
149 | 148 |
|
150 | 149 |
# get chart_id |
151 | 150 |
my $query = qq|SELECT id FROM chart WHERE accno = ?|; |
... | ... | |
424 | 423 |
} |
425 | 424 |
|
426 | 425 |
$sth->finish; |
427 |
$dbh->disconnect; |
|
428 | 426 |
|
429 | 427 |
$main::lxdebug->leave_sub(); |
430 | 428 |
} |
Auch abrufbar als: Unified diff
CA: single-dbh disconnects