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

Added more error checking to unconditionalRead so the page doesn't die on invalid SQL

Browse source
This commit is contained in:
Andy Grundman 2003-06-21 01:59:25 +00:00
parent eed58af22d
commit e814dd106c
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/SQL.pm
View file

@ -596,8 +596,10 @@ sub unconditionalRead {
my ($sth,$dbh); my ($sth,$dbh);
$dbh = $_[2] || $WebGUI::Session::session{dbh}; $dbh = $_[2] || $WebGUI::Session::session{dbh};
$sth = $dbh->prepare($_[1]) or WebGUI::ErrorHandler::warn("Unconditional read failed: ".$_[1]." : ".DBI->errstr); $sth = $dbh->prepare($_[1]) or WebGUI::ErrorHandler::warn("Unconditional read failed: ".$_[1]." : ".DBI->errstr);
$sth->execute or WebGUI::ErrorHandler::warn("Unconditional read failed: ".$_[1]." : ".DBI->errstr); if ($sth) {
bless ({_sth => $sth}, $_[0]); $sth->execute or WebGUI::ErrorHandler::warn("Unconditional read failed: ".$_[1]." : ".DBI->errstr);
bless ({_sth => $sth}, $_[0]);
}
} }