[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.51,1.52

[Paul POULAIN]

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

Modified Files:
        Circ2.pm 
Log Message:


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -r1.51 -r1.52
*** Circ2.pm    10 Mar 2003 15:19:33 -0000      1.51
--- Circ2.pm    11 Apr 2003 08:42:02 -0000      1.52
***************
*** 39,42 ****
--- 39,43 ----
  use C4::Stats;
  use C4::Reserves2;
+ use C4::Koha;
  #use C4::Search;
  #use C4::Print;
***************
*** 338,352 ****
      my $dbh = C4::Context->dbh;
      my @borrowers;
!     my $q_key=$dbh->quote($key);
!     my $sth=$dbh->prepare("select * from borrowers where cardnumber=$q_key");
!     $sth->execute;
      if ($sth->rows) {
        my ($borrower)=$sth->fetchrow_hashref;
        push (@borrowers, $borrower);
      } else {
-       $q_key=$dbh->quote("$key%");
        $sth->finish;
!       $sth=$dbh->prepare("select * from borrowers where surname like $q_key");
!       $sth->execute;
        while (my $borrower = $sth->fetchrow_hashref) {
            push (@borrowers, $borrower);
--- 339,351 ----
      my $dbh = C4::Context->dbh;
      my @borrowers;
!     my $sth=$dbh->prepare("select * from borrowers where cardnumber=?");
!     $sth->execute($key);
      if ($sth->rows) {
        my ($borrower)=$sth->fetchrow_hashref;
        push (@borrowers, $borrower);
      } else {
        $sth->finish;
!       $sth=$dbh->prepare("select * from borrowers where surname like ?");
!       $sth->execute($key."%");
        while (my $borrower = $sth->fetchrow_hashref) {
            push (@borrowers, $borrower);