From fa5e55a9132b52e13a2582c05e96a00ebb97823c Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Mon, 24 Nov 2014 16:27:41 +0000
Subject: [PATCH] Bug 12831 [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>
---
 C4/Auth_with_ldap.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm
index 8d63591..5f0bb19 100644
--- a/C4/Auth_with_ldap.pm
+++ b/C4/Auth_with_ldap.pm
@@ -304,6 +304,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);
-- 
1.9.1