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 bf8ed7e..d8b43dc 100644 (file)
--- 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,