From: Jason Stephenson <jason@sigio.com>
Date: Sat, 23 Sep 2017 16:27:53 +0000 (-0400)
Subject: Try to get success/failure messages per hold.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=60f6ca72c966d770af2f2072a6a0bf243c0a8081;p=working%2FEvergreen.git

Try to get success/failure messages per hold.
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
index 174615c555..2c2aeac11c 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm
@@ -1367,7 +1367,8 @@ sub attempt_hold_placement {
                 last;
             }
 
-            my ($hdata) = grep {$_->{target_id} eq $resp->{target}} @hold_data;
+            # Need to modify this to skip those that had the hold_success or hold_failed fields set.
+            my ($hdata) = grep {$_->{target_id} eq $resp->{target} && !($_->{hold_failed} || $_->{hold_success})} @hold_data;
             my $result = $resp->{result};
 
             if ($U->event_code($result)) {