[open-ils-commits] r15532 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-02-15 09:16:12 -0500 (Mon, 15 Feb 2010)
New Revision: 15532

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
Log:
added lineitem alert text fleshing on lineitem notes

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2010-02-12 20:52:53 UTC (rev 15531)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2010-02-15 14:16:12 UTC (rev 15532)
@@ -92,8 +92,11 @@
 
     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};
     }
 

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2010-02-12 20:52:53 UTC (rev 15531)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2010-02-15 14:16:12 UTC (rev 15532)
@@ -343,8 +343,11 @@
         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};
         }