|
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 |
- |
|
|