Revision 4f44fd6b
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 565 | 565 |
my ($self, $myconfig, $form) = @_; |
| 566 | 566 |
|
| 567 | 567 |
# connect to database |
| 568 |
my $dbh = $form->dbconnect($myconfig);
|
|
| 568 |
my $dbh = SL::DB->client->dbh;
|
|
| 569 | 569 |
|
| 570 | 570 |
my $query = |
| 571 | 571 |
"SELECT COALESCE(" .
|
| ... | ... | |
| 574 | 574 |
" current_date)"; |
| 575 | 575 |
($form->{transdate}) = $dbh->selectrow_array($query);
|
| 576 | 576 |
|
| 577 |
$dbh->disconnect; |
|
| 578 |
|
|
| 579 | 577 |
$main::lxdebug->leave_sub(); |
| 580 | 578 |
} |
| 581 | 579 |
|
Auch abrufbar als: Unified diff
AP: single-dbh disconnects