LP1930740 EDI order writer attribute check repair

Repairs mistaken references to $self->{compiled}->{edi_attr}...  The
hash key we need is {edi_attrs}.

This issue prevented these attribute types from getting applied:

LINEITEM_IDENT_VENDOR_NUMBER
COPY_SPEC_CODES
INCLUDE_EMPTY_LI_NOTE

Signed-off-by: Bill Erickson <berickxx@gmail.com>
Signed-off-by: Jessica Woolford <jwoolford@biblio.org>
Signed-off-by: Jane Sandberg <sandbergja@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm
index b0349ee..ab67194 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm
@@ -189,7 +189,7 @@ sub set_li_order_ident {
     my $idqual = 'EN'; # ISBN13
     my $idval = '';
 
-    if ($self->{compiled}->{edi_attr}->{LINEITEM_IDENT_VENDOR_NUMBER}) {
+    if ($self->{compiled}->{edi_attrs}->{LINEITEM_IDENT_VENDOR_NUMBER}) {
         # See if we have a vendor-specific lineitem identifier value
         $idval = $self->get_li_attr($li, 'vendor_num');
     }
@@ -259,7 +259,7 @@ sub get_li_ftx {
         grep { $U->is_true($_->vendor_public) && $_->value } 
         @{$li->lineitem_notes};
 
-    if ($self->{compiled}->{edi_attr}->{COPY_SPEC_CODES}) {
+    if ($self->{compiled}->{edi_attrs}->{COPY_SPEC_CODES}) {
         for my $lid (@{$li->lineitem_details}) {
             push(@notes, $lid->note) 
                 if ($lid->note || '') =~ /spec code [a-zA-Z0-9_]/;
@@ -268,7 +268,7 @@ sub get_li_ftx {
 
     my @trimmed_notes;
 
-    if (!@notes && $self->{compiled}->{edi_attr}->{INCLUDE_EMPTY_LI_NOTE}) {
+    if (!@notes && $self->{compiled}->{edi_attrs}->{INCLUDE_EMPTY_LI_NOTE}) {
         # lineitem has no notes.  Add a blank note if needed.
         push(@trimmed_notes, '');