diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm index 99c80c22d5..ba217fa09a 100644 --- a/C4/Auth_with_ldap.pm +++ b/C4/Auth_with_ldap.pm @@ -315,6 +315,9 @@ sub _do_changepassword { "Unable to access borrowernumber with userid=$userid, borrowernumber=$borrowerid" if !$sth->rows; my ($cardnum) = $sth->fetchrow; + my $sth = C4::Context->dbh->prepare( + 'UPDATE borrowers SET password = null WHERE borrowernumber=?'); + $sth->execute($borrowerid); return $cardnum; } my $digest = hash_password($password);