ensure that suppressed system alerts do not set next_status

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 a8ada77..e7e6129 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
@@ -802,7 +802,8 @@ sub generate_system_copy_alerts {
     my %auto_override_conditions = ();
     foreach my $t (@final_types) {
         $t->next_status([$U->unique_unnested_numbers($t->next_status)])
-            if ($t->next_status);
+            if ($t->next_status) &&
+               !(grep {$t->id} @$suppressions);
 
         my $alert = new Fieldmapper::asset::copy_alert ();
         $alert->alert_type($t->id);