From d50df8bd71f529e1e24557ab04ca8af456a4af0c Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 17 Mar 2017 13:56:50 -0400 Subject: [PATCH] LP#1619703 Transfer ACQ lineitem to alternate bib WIP Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) 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 1e003c3ff6..facb334238 100644 --- 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); -- 2.11.0