From 867e83ee1af5a2a3d9c9e57b5320a4d96430e1ef Mon Sep 17 00:00:00 2001 From: Robin Sheat Date: Wed, 25 Feb 2015 17:09:10 +1300 Subject: [PATCH] Bug 13607: fix to set default messaging preferences --- svc/members/upsert | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/svc/members/upsert b/svc/members/upsert index b826a8c..b019aa1 100755 --- a/svc/members/upsert +++ b/svc/members/upsert @@ -72,6 +72,7 @@ use Modern::Perl; use C4::Context; use C4::Members; use C4::Members::AttributeTypes; +use C4::Members::Messaging; use C4::Output::XMLStream; use C4::Service; @@ -313,5 +314,11 @@ sub create_borrower { $dbh->rollback; die "Failed to create borrower record: $@\n"; } + C4::Members::Messaging::SetMessagingPreferencesFromDefaults( + { + borrowernumber => $borr_num, + categorycode => $borr_fields->{categorycode} + } + ); return $borr_num; } -- 2.1.0