Revision d38eaef8
Von Sven Schöling vor mehr als 7 Jahren hinzugefügt
| SL/RP.pm | ||
|---|---|---|
| 1465 | 1465 |
my ($self, $myconfig, $form) = @_; |
| 1466 | 1466 |
|
| 1467 | 1467 |
# connect to database, turn AutoCommit off |
| 1468 |
my $dbh = $form->dbconnect_noauto($myconfig);
|
|
| 1468 |
my $dbh = SL::DB->client->dbh;
|
|
| 1469 | 1469 |
|
| 1470 | 1470 |
my $ARAP = $form->{db} eq "ar" ? "AR" : "AP";
|
| 1471 | 1471 |
|
| ... | ... | |
| 1476 | 1476 |
WHERE link LIKE '%${ARAP}_paid%'|;
|
| 1477 | 1477 |
$form->{PR} = selectall_hashref_query($form, $dbh, $query);
|
| 1478 | 1478 |
|
| 1479 |
$dbh->disconnect; |
|
| 1480 |
|
|
| 1481 | 1479 |
$main::lxdebug->leave_sub(); |
| 1482 | 1480 |
} |
| 1483 | 1481 |
|
| ... | ... | |
| 1487 | 1485 |
my ($self, $myconfig, $form) = @_; |
| 1488 | 1486 |
|
| 1489 | 1487 |
# connect to database, turn AutoCommit off |
| 1490 |
my $dbh = $form->dbconnect_noauto($myconfig);
|
|
| 1488 |
my $dbh = SL::DB->client->dbh;
|
|
| 1491 | 1489 |
|
| 1492 | 1490 |
my $ml = 1; |
| 1493 | 1491 |
my $arap; |
| ... | ... | |
| 1608 | 1606 |
$sth_details->finish(); |
| 1609 | 1607 |
} |
| 1610 | 1608 |
|
| 1611 |
$dbh->disconnect; |
|
| 1612 |
|
|
| 1613 | 1609 |
$main::lxdebug->leave_sub(); |
| 1614 | 1610 |
} |
| 1615 | 1611 |
|
Auch abrufbar als: Unified diff
dbconnect_noauto entfernt