[Koha-cvs] CVS: koha member-password.pl,1.6,1.7
MJ Ray
slef at users.sourceforge.net
Fri Sep 26 13:53:14 CEST 2003
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv26846
Modified Files:
member-password.pl
Log Message:
Fix for bug532: do not error if userid is left intact
Index: member-password.pl
===================================================================
RCS file: /cvsroot/koha/koha/member-password.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** member-password.pl 27 May 2003 06:51:55 -0000 1.6
--- member-password.pl 26 Sep 2003 11:53:12 -0000 1.7
***************
*** 53,60 ****
my $dbh=C4::Context->dbh;
! #Make sure the userid chosen is unique. If it is not,
#Then we need to tell the user and have them create a new one.
! my $sth2=$dbh->prepare("select * from borrowers where userid=?");
! $sth2->execute($uid);
if ( $sth2->fetchrow ) {
--- 53,60 ----
my $dbh=C4::Context->dbh;
! #Make sure the userid chosen is unique and not theirs. If it is not,
#Then we need to tell the user and have them create a new one.
! my $sth2=$dbh->prepare("select * from borrowers where userid=? and borrowernumber != ?");
! $sth2->execute($uid,$member);
if ( $sth2->fetchrow ) {
More information about the Koha-cvs
mailing list