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