From 11eced8c31b2112bf4a1ed4b538ef57170f8e9b7 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Sat, 14 Jan 2006 23:03:53 +0000 Subject: [PATCH] fix --- lib/WebGUI/SQL/ResultSet.pm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/lib/WebGUI/SQL/ResultSet.pm b/lib/WebGUI/SQL/ResultSet.pm index 3d71ab4dc..81c680053 100644 --- a/lib/WebGUI/SQL/ResultSet.pm +++ b/lib/WebGUI/SQL/ResultSet.pm @@ -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; }