[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.57,1.58

[Paul POULAIN]

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

Modified Files:
        Circ2.pm 
Log Message:
removing searchborrower from circ2.pm.
Already exists in Search.pm
this fixes bug #439 and improve consistency.


Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.57
retrieving revision 1.58
diff -C2 -r1.57 -r1.58
*** Circ2.pm    8 May 2003 12:48:23 -0000       1.57
--- Circ2.pm    5 Jun 2003 17:03:34 -0000       1.58
***************
*** 62,66 ****
  @ISA = qw(Exporter);
  @EXPORT = qw(&getpatroninformation
!       &currentissues &getissues &getiteminformation &findborrower
        &issuebook &returnbook &find_reserves &transferbook &decode
        &calc_charges);
--- 62,66 ----
  @ISA = qw(Exporter);
  @EXPORT = qw(&getpatroninformation
!       &currentissues &getissues &getiteminformation
        &issuebook &returnbook &find_reserves &transferbook &decode
        &calc_charges);
***************
*** 301,352 ****
        return($iteminformation);
  }
- 
- =item findborrower
- 
-   $borrowers = &findborrower($env, $key);
-   print $borrowers->[0]{surname};
- 
- Looks up patrons and returns information about them.
- 
- C<$env> is ignored.
- 
- C<$key> is either a card number or a string. C<&findborrower> tries to
- look it up as a card number first. If that fails, C<&findborrower>
- looks up all patrons whose surname begins with C<$key>.
- 
- C<$borrowers> is a reference-to-array. Each element is a
- reference-to-hash whose keys are the fields of the borrowers table in
- the Koha database.
- 
- =cut
- #'
- # If you really want to throw a monkey wrench into the works, change
- # your last name to "V10000008" :-)
- 
- # FIXME - This is different from &C4::Borrower::findborrower, but I
- # think that one's obsolete.
- sub findborrower {
- # returns an array of borrower hash references, given a cardnumber or a 
partial
- # surname
-       my ($env, $key) = @_;
-       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);
-               }
-       }
-       $sth->finish;
-       return(address@hidden);
- }
- 
  
  =item transferbook
--- 301,304 ----