LP#1619703 Transfer ACQ lineitem to alternate bib WIP

Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
index 1e003c3..facb334 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
@@ -4221,9 +4221,7 @@ sub transfer_lineitem {
     # TODO: Transfer monograph parts.
 
     my $copies = $e->search_asset_copy(
-        {id => [map {$_->{eg_copy_id}} @$acp_ids]},
-        {substream => 1}
-    );
+        {id => [map {$_->{eg_copy_id}} @$acp_ids]});
 
     if (@$copies) {
 
@@ -4242,11 +4240,10 @@ sub transfer_lineitem {
         }
 
         # Transfer parts as needed to the target bib record.
-        my $part_maps = $e->search_asset_copy_part_map(
-            [   {target_copy => [map {$_->id} @$copies]},
-                {flesh => 1, flesh_fields => {acpm => ['part']}}
-            ], {substream => 1}
-        );
+        my $part_maps = $e->search_asset_copy_part_map([   
+            {target_copy => [map {$_->id} @$copies]},
+            {flesh => 1, flesh_fields => {acpm => ['part']}}
+        ]);
 
         for my $map (@$part_maps) {
             my $evt = transfer_order_copy_parts($e, $bib_id, $map);