get next status & suppressed alerts working correctly

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

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 0e16a2b..37c9c25 100644 (file)
--- 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);