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

(-)a/C4/Auth_with_ldap.pm (-1 / +2 lines)
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
- 

Return to bug 12304