respond after li update, may not be any lid's

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
index c7671d8..7d0fc98 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
@@ -1662,8 +1662,9 @@ sub clone_picklist_api {
             # copy the lineitem details
             my $lid = $e->retrieve_acq_lineitem_detail($lid_id);
             create_lineitem_detail($mgr, %{$lid->to_bare_hash}, lineitem => $new_li->id) or return $e->die_event;
-            $mgr->respond;
         }
+
+        $mgr->respond;
     }
 
     $e->commit;