From 5f9748b60618305bcf856f85422d7098a8b5ff10 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 25 Oct 2016 12:53:32 -0400 Subject: [PATCH] get next status & suppressed alerts working correctly Signed-off-by: Galen Charlton --- .../src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm index ded683389a..e055f91f03 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm @@ -801,9 +801,13 @@ sub generate_system_copy_alerts { # certain old-style-events my %auto_override_conditions = (); foreach my $t (@final_types) { - $t->next_status([$U->unique_unnested_numbers($t->next_status)]) - if ($t->next_status) && - !(grep {$t->id} @$suppressions); + if ($t->next_status) { + if (grep { $t->id == $_->alert_type } @$suppressions) { + $t->next_status([]); + } else { + $t->next_status([$U->unique_unnested_numbers($t->next_status)]); + } + } my $alert = new Fieldmapper::asset::copy_alert (); $alert->alert_type($t->id); -- 2.11.0