LP1929741 Delete action trumps ischanged for LID's

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 675352c..1a05a5c 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
@@ -2076,11 +2076,11 @@ sub lineitem_detail_CUD_batch {
                 create_lineitem_detail_debit($mgr, $li, $lid, 0, 1) or return $e->die_event;
             }
 
-        } elsif($lid->ischanged) {
-            return $evt if $evt = handle_changed_lid($e, $lid, $dry_run, $fund_cache);
-
         } elsif($lid->isdeleted) {
             delete_lineitem_detail($mgr, $lid) or return $e->die_event;
+
+        } elsif($lid->ischanged) {
+            return $evt if $evt = handle_changed_lid($e, $lid, $dry_run, $fund_cache);
         }
 
         $mgr->respond(li => $li);