From 98bfa5aad41785558076ad5a63ad535964c1f5e4 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Mon, 8 Aug 2016 16:50:08 -0400 Subject: [PATCH] add ability to unconditionally send email Defines a open-ils.trigger.event.autocreate.ignore_opt_in method that does what it says on the tin; caller is reponsible for not abusing this. Signed-off-by: Galen Charlton --- .../src/perlmods/lib/OpenILS/Application/Circ/CircNotify.pm | 2 +- Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger.pm | 10 +++++++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircNotify.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircNotify.pm index 4629e15ed8..48fc6a809c 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircNotify.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircNotify.pm @@ -74,7 +74,7 @@ sub circ_batch_notify { ); $multi->request( - 'open-ils.trigger.event.autocreate', + 'open-ils.trigger.event.autocreate.ignore_opt_in', $hook => $_ => $e->requestor->ws_ou ) for ( @$circs ); $client->status( new OpenSRF::DomainObject::oilsContinueStatus ); diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger.pm index ed83cbae1b..920175b5c7 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger.pm @@ -72,7 +72,7 @@ sub create_active_events_for_object { for my $def ( @$defs ) { next if ($granularity && $def->granularity ne $granularity ); - if ($def->usr_field && $def->opt_in_setting) { + if (!$self->{ignore_opt_in} && $def->usr_field && $def->opt_in_setting) { my $ufield = $def->usr_field; my $uid = $target->$ufield; $uid = $uid->id if (ref $uid); # fleshed user object, unflesh it @@ -124,6 +124,14 @@ __PACKAGE__->register_method( stream => 1, argc => 3 ); +__PACKAGE__->register_method( + api_name => 'open-ils.trigger.event.autocreate.ignore_opt_in', + method => 'create_active_events_for_object', + api_level => 1, + stream => 1, + argc => 3, + ignore_opt_in => 1 +); sub create_event_for_object_and_def { my $self = shift; -- 2.11.0