From: Galen Charlton Date: Thu, 3 Dec 2015 19:52:13 +0000 (-0500) Subject: don't generate system copy alerts if copy state is normal X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d9868725ab8c911e23c7fcee472903b167e86e89;p=working%2FEvergreen.git don't generate system copy alerts if copy state is normal Signed-off-by: Galen Charlton --- 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 151dd03b96..0cf63385c5 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm @@ -714,6 +714,14 @@ sub generate_system_copy_alerts { my $self = shift; return unless($self->copy); + # don't create system copy alerts if the copy + # is in a normal state; we're assuming that there's + # never a need to generate a popup for each and every + # checkin or checkout of normal items. If this assumption + # proves false, then we'll need to add a way to explicitly specify + # that a copy alert type should never generate a system copy alert + return if $self->copy_state eq 'NORMAL'; + my $e = $self->editor; my $suppress_orgs = $U->get_org_descendants($self->circ_lib);