From 4664536dd97591f7f246755c31a8e242d2dcedb2 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 20 Apr 2009 18:32:57 +0000 Subject: [PATCH] fetch lineitems in substream since they are so large git-svn-id: svn://svn.open-ils.org/ILS/trunk@12921 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm index 7d0fc983d..262ddbd52 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm @@ -613,13 +613,13 @@ sub delete_picklist { $picklist = $mgr->editor->retrieve_acq_picklist($picklist) unless ref $picklist; # delete all 'new' lineitems - my $lis = $mgr->editor->search_acq_lineitem({picklist => $picklist->id, state => 'new'}); + my $lis = $mgr->editor->search_acq_lineitem({picklist => $picklist->id, state => 'new'}, {substream => 1}); for my $li (@$lis) { return 0 unless delete_lineitem($mgr, $li); } # detach all non-'new' lineitems - $lis = $mgr->editor->search_acq_lineitem({picklist => $picklist->id, state => {'!=' => 'new'}}); + $lis = $mgr->editor->search_acq_lineitem({picklist => $picklist->id, state => {'!=' => 'new'}, {substream => 1}}); for my $li (@$lis) { $li->clear_picklist; return 0 unless update_lineitem($mgr, $li); -- 2.11.0