From 85c25c619f8684f99c80fe6cf6a5c4885e903b5a Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Thu, 27 Nov 2014 15:31:24 +0000 Subject: [PATCH] Bug 9165: (Followup) Tidied code slightly Minor code tidy to clean up qa script warning. http://bugs.koha-community.org/show_bug.cgi?id=9165 Signed-off-by: Julian Maurice Signed-off-by: Tomas Cohen Arazi --- C4/Auth_with_ldap.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm index ba217fa09a..a929c04034 100644 --- a/C4/Auth_with_ldap.pm +++ b/C4/Auth_with_ldap.pm @@ -311,11 +311,12 @@ sub _do_changepassword { my $sth = C4::Context->dbh->prepare( 'SELECT cardnumber FROM borrowers WHERE borrowernumber=?'); $sth->execute($borrowerid); - die -"Unable to access borrowernumber with userid=$userid, borrowernumber=$borrowerid" + die "Unable to access borrowernumber " + . "with userid=$userid, " + . "borrowernumber=$borrowerid" if !$sth->rows; my ($cardnum) = $sth->fetchrow; - my $sth = C4::Context->dbh->prepare( + $sth = C4::Context->dbh->prepare( 'UPDATE borrowers SET password = null WHERE borrowernumber=?'); $sth->execute($borrowerid); return $cardnum; -- 2.39.2