From: Bill Erickson <berick@esilibrary.com>
Date: Wed, 9 Jul 2014 20:49:33 +0000 (-0400)
Subject: hold pull list API cont. flesh copy loc.
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b861485ce2f9e0215837c8c95f41859a4774a276;p=working%2FEvergreen.git

hold pull list API cont. flesh copy loc.

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
index bf8ed7e385..d8b43dc3c0 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm
@@ -1607,7 +1607,7 @@ sub hold_pull_list {
             $org, $limit, $offset );
 
         my $e = new_editor(xact => 1, requestor => $reqr);
-        $conn->respond(uber_hold_impl($e, $_)) for @$ids;
+        $conn->respond(uber_hold_impl($e, $_, {flesh_acpl => 1})) for @$ids;
         $e->rollback;
         $conn->respond_complete;
         return;
@@ -3415,6 +3415,10 @@ sub uber_hold_impl {
         %$details
     };
 
+    $resp->{copy}->location(
+        $e->retrieve_asset_copy_location($resp->{copy}->location))
+        if $resp->{copy} and $args->{flesh_acpl};
+
     unless($args->{suppress_patron_details}) {
         my $card = $e->retrieve_actor_card($user->card) or return $e->event;
         $resp->{patron_first}   = $user->first_given_name,