From 802f0478069dfcf44f8f9dba69b6fe3e2cc18ae0 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 28 Nov 2003 14:06:57 +0000
Subject: [PATCH] prepare(?) & execute($var) modif

---
 C4/Input.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C4/Input.pm b/C4/Input.pm
index 1bf1ea6277..528f6800ea 100644
--- a/C4/Input.pm
+++ b/C4/Input.pm
@@ -93,9 +93,9 @@ sub checkdigit {
 	unless ( $nounique )
 	{
 		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);
-		$sth->execute;
+		$sth->execute($infl);
 		my %results = $sth->fetchrow_hashref();
 		if ( $sth->rows != 0 )
 		{
-- 
2.39.5