added workstation fleshing to some circ retrieval methods
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 6 Nov 2009 23:28:34 +0000 (23:28 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 6 Nov 2009 23:28:34 +0000 (23:28 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@14819 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Circ.pm

index c1d0813..a1e1cf8 100644 (file)
@@ -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;
 }