Bug 9165: (Followup) Clear existing sync

A small enhancement to clear existing synced passowrd should this
config option be enbled. This followup is related to bug 12831

http://bugs.koha-community.org/show_bug.cgi?id=9165
Signed-off-by: Robin Sheat <robin@catalyst.net.nz>
Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm
index 99c80c2..ba217fa 100644 (file)
--- 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);