From 082b2c531fdb800ec2f8ada70f86198cb90fe267 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 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 57c1e4fb9c..aa4ac33549 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm @@ -811,9 +811,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