From a1743097f76d3313dfd666bf609ecf1a041619a8 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Mon, 4 May 2015 21:59:15 -0400 Subject: [PATCH] Bug 14144: Silence warnings in t/db_dependent/Auth_with_ldap.t TEST PLAN ---------- 1) prove t/db_dependent/Auth_with_ldap.t -- there is a shibboleth related warning 2) apply patch 3) prove t/db_dependent/Auth_with_ldap.t -- now there is not. 4) koha qa test tools. --- C4/Auth_with_ldap.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm index 58484a2..749cd1f 100644 --- a/C4/Auth_with_ldap.pm +++ b/C4/Auth_with_ldap.pm @@ -27,7 +27,7 @@ use C4::Members qw(AddMember changepassword); use C4::Members::Attributes; use C4::Members::AttributeTypes; use C4::Members::Messaging; -use C4::Auth qw(checkpw_internal); +require C4::Auth; use Koha::AuthUtils qw(hash_password); use List::MoreUtils qw( any ); use Net::LDAP; @@ -326,7 +326,7 @@ sub _do_changepassword { $debug and print STDERR "changing local password for borrowernumber=$borrowerid to '$digest'\n"; changepassword($userid, $borrowerid, $digest); - my ($ok, $cardnum) = checkpw_internal(C4::Context->dbh, $userid, $password); + my ($ok, $cardnum) = C4::Auth::checkpw_internal(C4::Context->dbh, $userid, $password); return $cardnum if $ok; warn "Password mismatch after update to borrowernumber=$borrowerid"; -- 2.1.4