From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 6 Nov 2009 23:28:34 +0000 (+0000)
Subject: added workstation fleshing to some circ retrieval methods
X-Git-Tag: kcls-grey-screen-prod1~3068
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7d0f7496343a118e8c7a01f8c2d9e175143fe367;p=evergreen%2Fequinox.git

added workstation fleshing to some circ retrieval methods

git-svn-id: svn://svn.open-ils.org/ILS/trunk@14819 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

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;
 }