From 57f9ccadaf2110c3c49a68d1720a1ba1ef1deb20 Mon Sep 17 00:00:00 2001
From: Mike Rylander <mrylander@gmail.com>
Date: Mon, 7 Mar 2011 15:12:13 -0500
Subject: [PATCH] Add "parts" fleshing to copy tree retrieval

---
 Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
index b787999899..746ce78a55 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
@@ -668,8 +668,10 @@ sub _build_volume_list {
 
     for my $volume (@$vols) {
 
-        my $copies = $e->search_asset_copy(
-            { call_number => $volume->id , deleted => 'f' });
+        my $copies = $e->search_asset_copy([
+            { call_number => $volume->id , deleted => 'f' },
+            { flesh => 1, flesh_fields => { acp => ['parts'] } }
+        ]);
 
         $copies = [ sort { $a->barcode cmp $b->barcode } @$copies  ];
 
-- 
2.11.0