added lineitem alert text fleshing on lineitem notes

git-svn-id: svn://svn.open-ils.org/ILS/trunk@15532 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
index d7c5fde..21f01fb 100644 (file)
--- 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 5f0b5fd..b3e9aae 100644 (file)
--- 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};
         }