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

fix error handling in SQL

Browse source
This commit is contained in:
Graham Knop 2010-05-06 09:28:18 -05:00 • committed by Graham Knop
parent 8cd0f80bd4
commit 9c725aa237
2 changed files with 11 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/SQL.pm
View file

@ -20,6 +20,8 @@ use Tie::IxHash ();
use Text::CSV_XS ();
use WebGUI::Utility ();
use WebGUI::SQL::ResultSet ();
use WebGUI::Exception;
use Scalar::Util ();
use Try::Tiny;
use namespace::clean;
@ -136,7 +138,7 @@ sub connect {
$params->{AutoCommit} = 1;
$params->{ShowErrorStatement} = 1;
$params->{HandleError} = sub {
$session->errorHandler->fatal(Carp::longmess(shift));
WebGUI::Error::Database->throw(shift);
};
if ( ($class->parse_dsn($dsn))[1] eq 'mysql' ) {
$params->{mysql_enable_utf8} = 1;
@ -839,6 +841,7 @@ sub session {
my $self = shift;
if (@_) {
$self->{private_webgui_session} = shift;
Scalar::Util::weaken $self->{private_webgui_session};
}
return $self->{private_webgui_session};
}