From 27afcafffb003b2db6f24d2d44cd399022d3605b Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Thu, 3 Dec 2015 14:52:13 -0500 Subject: [PATCH] don't generate system copy alerts if copy state is normal Signed-off-by: Galen Charlton --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm | 8 ++++++++ 1 file changed, 8 insertions(+) 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 a270700d16..7e3efcb005 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); -- 2.11.0