prepare(?) & execute($var) modif
This commit is contained in:
parent
116faee744
commit
802f047806
1 changed files with 2 additions and 2 deletions
|
@ -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 )
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in a new issue