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

[Paul POULAIN]

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

Modified Files:
	Members.pm 
Log Message:
road to a better member management code.
Useful for LDAP integration


Index: Members.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Members.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** Members.pm	30 Aug 2004 13:48:58 -0000	1.4
--- Members.pm	2 Sep 2004 16:27:09 -0000	1.5
***************
*** 50,54 ****
  
  @EXPORT = qw(
! 	&fixup_cardnumber &findguarantees &modmember &newmember
      );
  
--- 50,54 ----
  
  @EXPORT = qw(
! 	&fixup_cardnumber &findguarantees &modmember &newmember &changepassword
      );
  
***************
*** 106,119 ****
  	$sth->finish;
  	$data{borrowernumber} =$dbh->{'mysql_insertid'};
- 	# ok if its an adult (type) it may have borrowers that depend on it as a guarantor
- 	# so when we update information for an adult we should check for guarantees and update the relevant part
- 	# of their records, ie addresses and phone numbers
- 	if ($data{'categorycode'} eq 'A' || $data{'categorycode'} eq 'W'){
- 		# is adult check guarantees;
- 		updateguarantees(%data);
- 	}
  	return $data{borrowernumber};
  }
  
  sub updateguarantees {
  	my (%data) = @_;
--- 106,136 ----
  	$sth->finish;
  	$data{borrowernumber} =$dbh->{'mysql_insertid'};
  	return $data{borrowernumber};
  }
  
+ sub changepassword {
+ 	my ($uid,$member,$digest) = @_;
+ 	my $dbh = C4::Context->dbh;
+ 	#Make sure the userid chosen is unique and not theirs if non-empty. If it is not,
+ 	#Then we need to tell the user and have them create a new one.
+ 	my $sth=$dbh->prepare("select * from borrowers where userid=? and borrowernumber != ?");
+ 	$sth->execute($uid,$member);
+ 	if ( ($uid ne '') && ($sth->fetchrow) ) {
+ 		return 0;
+     } else {
+ 		#Everything is good so we can update the information.
+ 		$sth=$dbh->prepare("update borrowers set userid=?, password=? where borrowernumber=?");
+     		$sth->execute($uid, $digest, $member);
+ 		return 1;
+ 	}
+ }
+ 
+ sub getmemberfromuserid {
+ 	my ($userid) = @_;
+ 	my $dbh = C4::Context->dbh;
+ 	my $sth = $dbh->prepare("select * from borrowers where userid=?");
+ 	$sth->execute($userid);
+ 	return $sth->fetchrow_hashref;
+ }
  sub updateguarantees {
  	my (%data) = @_;