Tpac: only show opac_visible notification opt-in settings

Signed-off-by: Bill Erickson <berick@esilibrary.com>

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 344696a..e32cd93 100644 (file)
--- 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',