From b12f638149511c2c2560188b37cc26f5fd8d0a77 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Wed, 21 May 2014 14:18:14 +0000 Subject: [PATCH] BUG 12304: LDAP auto-provisioning set default messaging preferences LDAP auto-provisioning should set default messaging preferences upon creation of a user. --- C4/Auth_with_ldap.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm index 3b40015..af2c2d8 100644 --- a/C4/Auth_with_ldap.pm +++ b/C4/Auth_with_ldap.pm @@ -26,6 +26,7 @@ use C4::Context; use C4::Members qw(AddMember changepassword); use C4::Members::Attributes; use C4::Members::AttributeTypes; +use C4::Members::Messaging; use C4::Auth qw(checkpw_internal); use Koha::AuthUtils qw(hash_password); use List::MoreUtils qw( any ); @@ -188,6 +189,7 @@ sub checkpw_ldap { } } elsif ($config{replicate}) { # A2, C2 $borrowernumber = AddMember(%borrower) or die "AddMember failed"; + C4::Members::Messaging::SetMessagingPreferencesFromDefaults( { borrowernumber => $borrower{'borrowernumber'}, categorycode => $borrower{'categorycode'} } ); } else { return 0; # B2, D2 } -- 1.7.10.4