From f9dcd7bcb2790510e04f9c35f1eb7e1481557cd5 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..6000e76 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 => $borrowernumber, categorycode => $borrower{'categorycode'} } ); } else { return 0; # B2, D2 } -- 1.7.10.4