Revision 20fb5523
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/GL.pm | ||
|---|---|---|
|
my ($self, $myconfig, $form) = @_;
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
# connect to database
|
||
|
my $dbh = $form->dbconnect($myconfig);
|
||
|
my $dbh = SL::DB->client->dbh;
|
||
|
my ($query, $sth, $source, $null, $space);
|
||
|
|
||
|
my ($glwhere, $arwhere, $apwhere) = ("1 = 1", "1 = 1", "1 = 1");
|
||
| ... | ... | |
|
($form->{account_description}) = selectrow_query($form, $dbh, $query, $form->{accno});
|
||
|
}
|
||
|
|
||
|
$dbh->disconnect;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
|
||
|
my ($query, $sth, $ref, @values);
|
||
|
|
||
|
# connect to database
|
||
|
my $dbh = $form->dbconnect($myconfig);
|
||
|
my $dbh = SL::DB->client->dbh;
|
||
|
|
||
|
$query = qq|SELECT closedto, revtrans FROM defaults|;
|
||
|
($form->{closedto}, $form->{revtrans}) = selectrow_query($form, $dbh, $query);
|
||
| ... | ... | |
|
ORDER BY c.accno|;
|
||
|
$form->{chart} = selectall_hashref_query($form, $dbh, $query, conv_date($form->{transdate}));
|
||
|
|
||
|
$dbh->disconnect;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
GL: single-dbh disconnects