From: Galen Charlton <gmc@esilibrary.com>
Date: Tue, 25 Oct 2016 16:53:32 +0000 (-0400)
Subject: get next status & suppressed alerts working correctly
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=082b2c531fdb800ec2f8ada70f86198cb90fe267;p=working%2FEvergreen.git

get next status & suppressed alerts working correctly

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Galen Charlton <gmc@equinoxinitiative.org>
---

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);