From: Bill Erickson <berick@esilibrary.com>
Date: Tue, 4 Dec 2012 16:04:08 +0000 (-0500)
Subject: ACQ: repair lineitem cancel-reason fleshing
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=23b56b4ae3ddb74bd3203fdd6dacbf0f0acea913;p=evergreen%2Fequinox.git

ACQ: repair lineitem cancel-reason fleshing

When fetching lineitems for display in the general lineitem list page,
if the lineitem is cancelled, be sure we correctly retrieve the
cancel-reason object.

Signed-off-by: Bill Erickson <berick@esilibrary.com>
Signed-off-by: Ben Shum <bshum@biblio.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Lineitem.pm
index c36bf60b1d..47687f8e2f 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Lineitem.pm
@@ -113,7 +113,7 @@ sub retrieve_lineitem_impl {
     push(@{$fields->{jub}   },'lineitem_notes') if $$options{flesh_notes};
     push(@{$fields->{acqlin}},    'alert_text') if $$options{flesh_notes};
     push(@{$fields->{jub}   }, 'order_summary') if $$options{flesh_order_summary};
-    push(@{$fields->{acqlin}}, 'cancel_reason') if $$options{flesh_cancel_reason};
+    push(@{$fields->{jub}   }, 'cancel_reason') if $$options{flesh_cancel_reason};
 
     if($$options{flesh_li_details}) {
         push(@{$fields->{jub}   }, 'lineitem_details');