From 54a37f381503b47b042efcfe37e784123eeb5773 Mon Sep 17 00:00:00 2001
From: Bill Erickson <berick@esilibrary.com>
Date: Tue, 30 Aug 2011 12:54:48 -0400
Subject: [PATCH] Tpac: only show opac_visible notification opt-in settings
Signed-off-by: Bill Erickson <berick@esilibrary.com>
---
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
index 344696a3a0..e32cd93db4 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
@@ -163,6 +163,9 @@ sub fetch_optin_prefs {
'open-ils.actor.event_def.opt_in.settings.atomic',
$e->authtoken, $e->requestor->home_ou);
+ # some opt-ins are staff-only
+ $opt_ins = [ grep { $U->is_true($_->opac_visible) } @$opt_ins ];
+
# fetch user setting values for each of the opt-in settings
my $user_set = $U->simplereq(
'open-ils.actor',
--
2.11.0