added extra debug to sql fatal errors
This commit is contained in:
parent
db8e8e99ac
commit
e84f4bf828
2 changed files with 4 additions and 2 deletions
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue