Revision 22c02125
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 52 | 52 |
use SL::Common; |
| 53 | 53 |
use SL::CVar; |
| 54 | 54 |
use SL::DB; |
| 55 |
use SL::DBConnect; |
|
| 55 | 56 |
use SL::DBUtils; |
| 56 | 57 |
use SL::DO; |
| 57 | 58 |
use SL::IC; |
| ... | ... | |
| 1582 | 1583 |
my ($self, $myconfig) = @_; |
| 1583 | 1584 |
|
| 1584 | 1585 |
# connect to database |
| 1585 |
my $dbh = DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options)
|
|
| 1586 |
my $dbh = SL::DBConnect->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options)
|
|
| 1586 | 1587 |
or $self->dberror; |
| 1587 | 1588 |
|
| 1588 | 1589 |
# set db options |
| ... | ... | |
| 1601 | 1602 |
my ($self, $myconfig) = @_; |
| 1602 | 1603 |
|
| 1603 | 1604 |
# connect to database |
| 1604 |
my $dbh = DBI->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options(AutoCommit => 0))
|
|
| 1605 |
my $dbh = SL::DBConnect->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, $self->_dbconnect_options(AutoCommit => 0))
|
|
| 1605 | 1606 |
or $self->dberror; |
| 1606 | 1607 |
|
| 1607 | 1608 |
# set db options |
Auch abrufbar als: Unified diff
Alle Datenbankverbindungen über DBIx::Log4perl laufen lassen, sofern dies in der Konfiguration aktiviert ist