[Koha-cvs] CVS: koha/C4 Members.pm,1.5,1.6

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22524/C4

Modified Files:
        Members.pm 
Log Message:
adding getmember sub to the package (the Search.pm/borrdata should be removed, 
it has nothing to do here)

Index: Members.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Members.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** Members.pm  2 Sep 2004 16:27:09 -0000       1.5
--- Members.pm  4 Oct 2004 20:19:08 -0000       1.6
***************
*** 50,56 ****
  
  @EXPORT = qw(
!       &fixup_cardnumber &findguarantees &modmember &newmember &changepassword
      );
  
  
  sub modmember {
--- 50,98 ----
  
  @EXPORT = qw(
!       &getmember &fixup_cardnumber &findguarantees &modmember &newmember 
&changepassword
      );
  
+       
+ =item getmember
+ 
+   $borrower = &getmember($cardnumber, $borrowernumber);
+ 
+ Looks up information about a patron (borrower) by either card number
+ or borrower number. If $borrowernumber is specified, C<&borrdata>
+ searches by borrower number; otherwise, it searches by card number.
+ 
+ C<&getmember> returns a reference-to-hash whose keys are the fields of
+ the C<borrowers> table in the Koha database.
+ 
+ =cut
+ #'
+ sub getmember {
+   my ($cardnumber,$bornum)address@hidden;
+   $cardnumber = uc $cardnumber;
+   my $dbh = C4::Context->dbh;
+   my $sth;
+   if ($bornum eq ''){
+     $sth=$dbh->prepare("Select * from borrowers where cardnumber=?");
+     $sth->execute($cardnumber);
+   } else {
+     $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
+   $sth->execute($bornum);
+   }
+   my $data=$sth->fetchrow_hashref;
+   $sth->finish;
+   if ($data) {
+       return($data);
+       } else { # try with firstname
+               if ($cardnumber) {
+                       my $sth=$dbh->prepare("select * from borrowers where 
firstname=?");
+                       $sth->execute($cardnumber);
+                       my $data=$sth->fetchrow_hashref;
+                       $sth->finish;
+                       return($data);
+               }
+       }
+       return undef;
+ }
+ 
  
  sub modmember {