oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make DBI connect errors not infinitely recurse.

Browse source
This commit is contained in:
Drake 2006-09-21 00:25:01 +00:00
parent b81d7cd974
commit 1ad3f6e3b3
6 changed files with 74 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/SQL.pm
View file

@ -315,7 +315,13 @@ sub connect {
my $dsn = shift;
my $user = shift;
my $pass = shift;
my $dbh = DBI->connect($dsn,$user,$pass,{RaiseError=>0,AutoCommit=>1 }) or $session->errorHandler->fatal("Couldn't connect to database.");
my $dbh = DBI->connect($dsn,$user,$pass,{RaiseError=>0,AutoCommit=>1 });
unless (defined $dbh) {
$session->setDbNotAvailable;
$session->errorHandler->fatal("Couldn't connect to database.");
}
if ( $dsn =~ /Oracle/ ) { # Set Oracle specific attributes
$dbh->{LongReadLen} = 512 * 1024;
$dbh->{LongTruncOk} = 1;