Revision 98202944
Von Sven Schöling vor mehr als 7 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 657 | 657 |
my ($self, $myconfig, $form) = @_; |
| 658 | 658 |
|
| 659 | 659 |
# connect to database |
| 660 |
my $dbh = $form->dbconnect($myconfig);
|
|
| 660 |
my $dbh = SL::DB->client->dbh;
|
|
| 661 | 661 |
|
| 662 | 662 |
my $query = |
| 663 | 663 |
"SELECT COALESCE(" .
|
| ... | ... | |
| 666 | 666 |
" current_date)"; |
| 667 | 667 |
($form->{transdate}) = $dbh->selectrow_array($query);
|
| 668 | 668 |
|
| 669 |
$dbh->disconnect; |
|
| 670 |
|
|
| 671 | 669 |
$main::lxdebug->leave_sub(); |
| 672 | 670 |
} |
| 673 | 671 |
|
Auch abrufbar als: Unified diff
AR: single-dbh disconnects