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:17:05 +00:00
parent 9490c68ef5
commit fea3d047f9
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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