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 326-332 sub _do_changepassword { Link Here
326
    $debug and print STDERR "changing local password for borrowernumber=$borrowerid to '$digest'\n";
325
    $debug and print STDERR "changing local password for borrowernumber=$borrowerid to '$digest'\n";
327
    changepassword($userid, $borrowerid, $digest);
326
    changepassword($userid, $borrowerid, $digest);
328
327
329
    my ($ok, $cardnum) = checkpw_internal(C4::Context->dbh, $userid, $password);
328
    require C4::Auth;
329
    my ($ok, $cardnum) = C4::Auth::checkpw_internal(C4::Context->dbh, $userid, $password);
330
    return $cardnum if $ok;
330
    return $cardnum if $ok;
331
331
332
    warn "Password mismatch after update to borrowernumber=$borrowerid";
332
    warn "Password mismatch after update to borrowernumber=$borrowerid";
333
- 

Return to bug 14144