|
Lines 26-31
use C4::Context;
Link Here
|
| 26 |
use C4::Members qw(AddMember changepassword); |
26 |
use C4::Members qw(AddMember changepassword); |
| 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::Auth qw(checkpw_internal); |
30 |
use C4::Auth qw(checkpw_internal); |
| 30 |
use Koha::AuthUtils qw(hash_password); |
31 |
use Koha::AuthUtils qw(hash_password); |
| 31 |
use List::MoreUtils qw( any ); |
32 |
use List::MoreUtils qw( any ); |
|
Lines 188-193
sub checkpw_ldap {
Link Here
|
| 188 |
} |
189 |
} |
| 189 |
} elsif ($config{replicate}) { # A2, C2 |
190 |
} elsif ($config{replicate}) { # A2, C2 |
| 190 |
$borrowernumber = AddMember(%borrower) or die "AddMember failed"; |
191 |
$borrowernumber = AddMember(%borrower) or die "AddMember failed"; |
|
|
192 |
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $borrowernumber, categorycode => $borrower{'categorycode'} } ); |
| 191 |
} else { |
193 |
} else { |
| 192 |
return 0; # B2, D2 |
194 |
return 0; # B2, D2 |
| 193 |
} |
195 |
} |
| 194 |
- |
|
|