From 2222cc4c0afc148e602f1434499aa131ea1371a1 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Thu, 27 Nov 2014 15:31:24 +0000 Subject: [PATCH] Bug 12831 [QA Followup]: Tidied code slightly Minor code tidy to clean up qa script warning. http://bugs.koha-community.org/show_bug.cgi?id=9165 --- 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 5f0bb19..42accc3 100644 --- a/C4/Auth_with_ldap.pm +++ b/C4/Auth_with_ldap.pm @@ -300,11 +300,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; -- 1.7.10.4