[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)=@_;
+   $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 {