prepare(?) & execute($var) modif

This commit is contained in:
tipaul 2003-11-28 14:06:57 +00:00
parent 116faee744
commit 802f047806

View file

@ -93,9 +93,9 @@ sub checkdigit {
unless ( $nounique ) unless ( $nounique )
{ {
my $dbh=C4::Context->dbh; my $dbh=C4::Context->dbh;
my $query=qq{SELECT * FROM borrowers WHERE cardnumber="$infl"}; my $query=qq{SELECT * FROM borrowers WHERE cardnumber=?};
my $sth=$dbh->prepare($query); my $sth=$dbh->prepare($query);
$sth->execute; $sth->execute($infl);
my %results = $sth->fetchrow_hashref(); my %results = $sth->fetchrow_hashref();
if ( $sth->rows != 0 ) if ( $sth->rows != 0 )
{ {