From 38d498caa476cde83e4c1c7954dc52c29154e91d Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 15 Feb 2010 14:16:12 +0000 Subject: [PATCH] added lineitem alert text fleshing on lineitem notes git-svn-id: svn://svn.open-ils.org/ILS/trunk@15532 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm | 7 +++++-- Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm | 7 +++++-- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm index d7c5fde7d..21f01fb17 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm @@ -92,8 +92,11 @@ sub retrieve_lineitem { my $flesh = {}; if($$options{flesh_attrs} or $$options{flesh_notes}) { - $flesh = {flesh => 1, flesh_fields => {jub => []}}; - push(@{$flesh->{flesh_fields}->{jub}}, 'lineitem_notes') if $$options{flesh_notes}; + $flesh = {flesh => 2, flesh_fields => {jub => []}}; + if($$options{flesh_notes}) { + push(@{$flesh->{flesh_fields}->{jub}}, 'lineitem_notes'); + $flesh->{flesh_fields}->{acqlin} = ['alert_text']; + } push(@{$flesh->{flesh_fields}->{jub}}, 'attributes') if $$options{flesh_attrs}; } diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm index 5f0b5fd38..b3e9aae14 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm @@ -343,8 +343,11 @@ sub retrieve_pl_lineitem { my $entry; my $flesh = {}; if($$options{flesh_attrs} or $$options{flesh_notes}) { - $flesh = {flesh => 1, flesh_fields => {jub => []}}; - push(@{$flesh->{flesh_fields}->{jub}}, 'lineitem_notes') if $$options{flesh_notes}; + $flesh = {flesh => 2, flesh_fields => {jub => []}}; + if($$options{flesh_notes}) { + push(@{$flesh->{flesh_fields}->{jub}}, 'lineitem_notes'); + $flesh->{flesh_fields}->{acqlin} = ['alert_text']; + } push(@{$flesh->{flesh_fields}->{jub}}, 'attributes') if $$options{flesh_attrs}; } -- 2.11.0