From bfe3243c4cdeacea07e53d6365bc384dfd0e6b4d Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 6 Jun 2013 15:03:58 +0200 Subject: [PATCH] =?utf8?q?SL::Form->dbconnect*:=20Connect-Settings=20nicht?= =?utf8?q?=20aus=20%::myconfig,=20sondern=20SL::DBConnect::connect=20?= =?utf8?q?=C3=BCberlassen?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/Form.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/SL/Form.pm b/SL/Form.pm index 07702fbfc..330799766 100644 --- a/SL/Form.pm +++ b/SL/Form.pm @@ -1373,8 +1373,7 @@ sub dbconnect { my ($self, $myconfig) = @_; # connect to database - my $dbh = SL::DBConnect->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, SL::DBConnect->get_options) - or $self->dberror; + my $dbh = SL::DBConnect->connect or $self->dberror; # set db options if ($myconfig->{dboptions}) { @@ -1392,8 +1391,7 @@ sub dbconnect_noauto { my ($self, $myconfig) = @_; # connect to database - my $dbh = SL::DBConnect->connect($myconfig->{dbconnect}, $myconfig->{dbuser}, $myconfig->{dbpasswd}, SL::DBConnect->get_options(AutoCommit => 0)) - or $self->dberror; + my $dbh = SL::DBConnect->connect(SL::DBConnect->get_connect_args(AutoCommit => 0)) or $self->dberror; # set db options if ($myconfig->{dboptions}) { -- 2.20.1