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