From c189860e60177e445354da10f9a7724af3cdde3b Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 10 Feb 2015 10:47:05 +0100 Subject: [PATCH] [PASSED QA] Bug 13645: Use DBIx::Connector Signed-off-by: Tomas Cohen Arazi Signed-off-by: Kyle M Hall --- C4/Context.pm | 11 ++++++++--- 1 files changed, 8 insertions(+), 3 deletions(-) diff --git a/C4/Context.pm b/C4/Context.pm index 274522e..cc93af4 100644 --- a/C4/Context.pm +++ b/C4/Context.pm @@ -97,7 +97,7 @@ BEGIN { $VERSION = '3.07.00.049'; } -use DBI; +use DBIx::Connector; use Encode; use ZOOM; use XML::Simple; @@ -783,8 +783,13 @@ sub _new_dbh my $db_user = $context->config("user"); my $db_passwd = $context->config("pass"); # MJR added or die here, as we can't work without dbh - my $dbh = DBI->connect("DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port", - $db_user, $db_passwd, {'RaiseError' => $ENV{DEBUG}?1:0 }) or die $DBI::errstr; + my $dbh = DBIx::Connector->connect( + "dbi:$db_driver:dbname=$db_name;host=$db_host;port=$db_port", + $db_user, $db_passwd, + { + 'RaiseError' => $ENV{DEBUG} ? 1 : 0 + } + ); # Check for the existence of a systempreference table; if we don't have this, we don't # have a valid database and should not set RaiseError in order to allow the installer -- 1.7.2.5