From 7d0f7496343a118e8c7a01f8c2d9e175143fe367 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 6 Nov 2009 23:28:34 +0000
Subject: [PATCH] added workstation fleshing to some circ retrieval methods

git-svn-id: svn://svn.open-ils.org/ILS/trunk@14819 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Circ.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
index c1d0813515..a1e1cf8f70 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
@@ -893,6 +893,7 @@ sub copy_details {
                 flesh => 1,
                 flesh_fields => {
                     circ => [
+                        'workstation',
                         'checkin_workstation', 
                         'duration_rule', 
                         'max_fine_rule', 
@@ -1380,7 +1381,7 @@ sub retrieve_circ_chain {
         $circ_id,
         {
             flesh => -1,
-            flesh_fields => {circ => ['parent_circ']}
+            flesh_fields => {circ => [qw/parent_circ workstation checkin_workstation/]}
         }
     ]) or return $e->event;
 
@@ -1402,7 +1403,10 @@ sub retrieve_circ_chain {
 
     # base circ may not be the end of the chain.  see if there are any subsequent circs
     $circ = $base_circ;
-    $conn->respond($circ) while ($circ = $e->search_action_circulation({parent_circ => $circ->id})->[0]);
+    $conn->respond($circ) while ($circ = $e->search_action_circulation([
+        {parent_circ => $circ->id},
+        {flesh => 1, flesh_fields => {circ => [qw/workstation checkin_workstation/]}}
+    ])->[0]);
 
     return undef;
 }
-- 
2.43.2