@@ -, +, @@ t/db_dependent/Auth_with_ldap.t ---------- -- there is a shibboleth related warning -- now there is not. delay it, as the function is not called by this test. A delay is better than nothing. --- C4/Auth_with_ldap.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/C4/Auth_with_ldap.pm +++ a/C4/Auth_with_ldap.pm @@ -27,7 +27,6 @@ use C4::Members qw(AddMember changepassword); use C4::Members::Attributes; use C4::Members::AttributeTypes; use C4::Members::Messaging; -use C4::Auth qw(checkpw_internal); use Koha::AuthUtils qw(hash_password); use List::MoreUtils qw( any ); use Net::LDAP; @@ -336,7 +335,8 @@ 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); + require C4::Auth; + my ($ok, $cardnum) = C4::Auth::checkpw_internal(C4::Context->dbh, $userid, $password); return $cardnum if $ok; warn "Password mismatch after update to borrowernumber=$borrowerid"; --