[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 )