Revision 76a25c8c
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 52 | 52 |
my ($self, $myconfig, $form) = @_; |
| 53 | 53 |
|
| 54 | 54 |
# connect to database |
| 55 |
my $dbh = $form->dbconnect($myconfig);
|
|
| 55 |
my $dbh = $form->get_standard_dbh;
|
|
| 56 | 56 |
|
| 57 | 57 |
my $query; |
| 58 | 58 |
my $ordnumber = 'ordnumber'; |
| ... | ... | |
| 226 | 226 |
} |
| 227 | 227 |
|
| 228 | 228 |
$sth->finish; |
| 229 |
$dbh->disconnect; |
|
| 230 | 229 |
|
| 231 | 230 |
$main::lxdebug->leave_sub(); |
| 232 | 231 |
} |
| ... | ... | |
| 658 | 657 |
my ($self, $myconfig, $form) = @_; |
| 659 | 658 |
|
| 660 | 659 |
# connect to database |
| 661 |
my $dbh = $form->dbconnect_noauto($myconfig); |
|
| 660 |
my $dbh = $form->get_standard_dbh; |
|
| 661 |
$dbh->begin_work; |
|
| 662 | 662 |
|
| 663 | 663 |
# delete spool files |
| 664 | 664 |
my $query = qq|SELECT s.spoolfile FROM status s | . |
| ... | ... | |
| 702 | 702 |
do_query($form, $dbh, $query, @values); |
| 703 | 703 |
|
| 704 | 704 |
my $rc = $dbh->commit; |
| 705 |
$dbh->disconnect; |
|
| 706 | 705 |
|
| 707 | 706 |
if ($rc) {
|
| 708 | 707 |
my $spool = $::lx_office_conf{paths}->{spool};
|
| ... | ... | |
| 1034 | 1033 |
my ($self, $myconfig, $form) = @_; |
| 1035 | 1034 |
|
| 1036 | 1035 |
# connect to database |
| 1037 |
my $dbh = $form->dbconnect($myconfig);
|
|
| 1036 |
my $dbh = $form->get_standard_dbh;
|
|
| 1038 | 1037 |
my $query; |
| 1039 | 1038 |
my @values = (); |
| 1040 | 1039 |
my $sth; |
Auch abrufbar als: Unified diff
Restliche dbconnects in OE entfernt.