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

fix

Browse source
This commit is contained in:
JT Smith 2006-01-14 23:03:53 +00:00
parent 7cb5e238ec
commit 11eced8c31
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/SQL/ResultSet.pm
View file

@ -240,9 +240,9 @@ sub read {
my $sql = shift;
my $db = shift;
my $placeholders = shift;
my $sth = $db->prepare($sql, $db);
$sth->execute($placeholders);
bless {_db=>$db, _sql=>$sql, _sth=>$sth}, $class;
my $self = $db->prepare($sql, $db);
$self->sth->execute($placeholders);
return $self;
}
#-------------------------------------------------------------------
@ -299,10 +299,9 @@ sub unconditionalRead {
my $db = shift;
my $placeholders = shift;
$db->session->errorHandler->debug("query: ".$sql);
my $sth = $db->dbh->prepare($sql) or $db->session->errorHandler->warn("Unconditional read failed: ".$sql." : ".$db->dbh->errstr);
if ($sth) {
$sth->execute(@$placeholders) or $db->session->errorHandler->warn("Unconditional read failed: ".$sql." : ".$sth->errstr);
bless ({_sth => $sth, _sql=>$sql, _db=>$db} , $class);
my $self = $db->dbh->prepare($sql) or $db->session->errorHandler->warn("Unconditional read failed: ".$sql." : ".$db->dbh->errstr);
if ($self->sth) {
$self->sth->execute(@$placeholders) or $db->session->errorHandler->warn("Unconditional read failed: ".$sql." : ".$self->sth->errstr);
} else {
return undef;
}