[open-ils-commits] r12917 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-04-20 13:31:26 -0400 (Mon, 20 Apr 2009)
New Revision: 12917

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
respond after li update, may not be any lid's

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-04-20 16:28:02 UTC (rev 12916)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-04-20 17:31:26 UTC (rev 12917)
@@ -1662,8 +1662,9 @@
             # 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;