added extra debug to sql fatal errors

This commit is contained in:
JT Smith 2004-09-13 20:09:46 +00:00
parent db8e8e99ac
commit e84f4bf828
2 changed files with 4 additions and 2 deletions

View file

@ -24,6 +24,7 @@
- Fixed a bunch of POD errors. - Fixed a bunch of POD errors.
- Fixed some errors in the search engine indexer related to the new GUID - Fixed some errors in the search engine indexer related to the new GUID
system. system.
- Added extra debug to SQL errors on fatality.
6.2.1 6.2.1

View file

@ -306,7 +306,8 @@ A list of values to be used in the placeholders defined in the prepared statemen
sub execute { sub execute {
my $self = shift; my $self = shift;
$self->{_sth}->execute(@_) or WebGUI::ErrorHandler::fatalError("Couldn't execute prepared statement: ". DBI->errstr); my $sql = shift;
$self->{_sth}->execute or WebGUI::ErrorHandler::fatalError("Couldn't execute prepared statement: $sql Root cause: ". DBI->errstr);
} }
@ -734,7 +735,7 @@ sub read {
my $sql = shift; my $sql = shift;
my $dbh = shift; my $dbh = shift;
my $sth = WebGUI::SQL->prepare($sql, $dbh); my $sth = WebGUI::SQL->prepare($sql, $dbh);
$sth->execute; $sth->execute($sql);
return $sth; return $sth;
} }