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=d8f95a483dbf4fc4de0c31889af1dd0846ec1c75;p=working%2FEvergreen.git don't generate system copy alerts if copy state is normal Signed-off-by: Galen Charlton 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 ea665887e7..49c4175ccc 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm @@ -724,6 +724,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);