From 23b56b4ae3ddb74bd3203fdd6dacbf0f0acea913 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Tue, 4 Dec 2012 11:04:08 -0500 Subject: [PATCH] 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 Signed-off-by: Ben Shum --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Lineitem.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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'); -- 2.11.0