View | Details | Raw Unified | Return to bug 14144
Collapse All | Expand All

(-)a/C4/Auth_with_ldap.pm (-3 / +2 lines)
Lines 27-33 use C4::Members qw(AddMember changepassword); Link Here
27
use C4::Members::Attributes;
27
use C4::Members::Attributes;
28
use C4::Members::AttributeTypes;
28
use C4::Members::AttributeTypes;
29
use C4::Members::Messaging;
29
use C4::Members::Messaging;
30
use C4::Auth qw(checkpw_internal);
31
use Koha::AuthUtils qw(hash_password);
30
use Koha::AuthUtils qw(hash_password);
32
use List::MoreUtils qw( any );
31
use List::MoreUtils qw( any );
33
use Net::LDAP;
32
use Net::LDAP;
Lines 336-342 sub _do_changepassword { Link Here
336
    $debug and print STDERR "changing local password for borrowernumber=$borrowerid to '$digest'\n";
335
    $debug and print STDERR "changing local password for borrowernumber=$borrowerid to '$digest'\n";
337
    changepassword($userid, $borrowerid, $digest);
336
    changepassword($userid, $borrowerid, $digest);
338
337
339
    my ($ok, $cardnum) = checkpw_internal(C4::Context->dbh, $userid, $password);
338
    require C4::Auth;
339
    my ($ok, $cardnum) = C4::Auth::checkpw_internal(C4::Context->dbh, $userid, $password);
340
    return $cardnum if $ok;
340
    return $cardnum if $ok;
341
341
342
    warn "Password mismatch after update to borrowernumber=$borrowerid";
342
    warn "Password mismatch after update to borrowernumber=$borrowerid";
343
- 

Return to bug 14144