Revision bfe3243c
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1373 | 1373 |
my ($self, $myconfig) = @_; |
| 1374 | 1374 |
|
| 1375 | 1375 |
# connect to database |
| 1376 |
my $dbh = SL::DBConnect->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, SL::DBConnect->get_options)
|
|
| 1377 |
or $self->dberror; |
|
| 1376 |
my $dbh = SL::DBConnect->connect or $self->dberror; |
|
| 1378 | 1377 |
|
| 1379 | 1378 |
# set db options |
| 1380 | 1379 |
if ($myconfig->{dboptions}) {
|
| ... | ... | |
| 1392 | 1391 |
my ($self, $myconfig) = @_; |
| 1393 | 1392 |
|
| 1394 | 1393 |
# connect to database |
| 1395 |
my $dbh = SL::DBConnect->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, SL::DBConnect->get_options(AutoCommit => 0))
|
|
| 1396 |
or $self->dberror; |
|
| 1394 |
my $dbh = SL::DBConnect->connect(SL::DBConnect->get_connect_args(AutoCommit => 0)) or $self->dberror; |
|
| 1397 | 1395 |
|
| 1398 | 1396 |
# set db options |
| 1399 | 1397 |
if ($myconfig->{dboptions}) {
|
Auch abrufbar als: Unified diff
SL::Form->dbconnect*: Connect-Settings nicht aus %::myconfig, sondern SL::DBConnect::connect überlassen