[Koha-cvs] CVS: koha/C4 Input.pm,1.15,1.16

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv17808/C4

Modified Files:
	Input.pm 
Log Message:
prepare(?) & execute($var) modif

Index: Input.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Input.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** Input.pm	25 Sep 2003 09:23:26 -0000	1.15
--- Input.pm	28 Nov 2003 14:06:57 -0000	1.16
***************
*** 94,100 ****
  	{
  		my $dbh=C4::Context->dbh;
! 		my $query=qq{SELECT * FROM borrowers WHERE cardnumber="$infl"};
  		my $sth=$dbh->prepare($query);
! 		$sth->execute;
  		my %results = $sth->fetchrow_hashref();
  		if ( $sth->rows != 0 )
--- 94,100 ----
  	{
  		my $dbh=C4::Context->dbh;
! 		my $query=qq{SELECT * FROM borrowers WHERE cardnumber=?};
  		my $sth=$dbh->prepare($query);
! 		$sth->execute($infl);
  		my %results = $sth->fetchrow_hashref();
  		if ( $sth->rows != 0 )