From c65b3f8f466bf5c0743966211666cea4cf4f4038 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 3 Jun 2021 11:09:25 -0400 Subject: [PATCH] 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 Signed-off-by: Jessica Woolford Signed-off-by: Jane Sandberg --- Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm index b0349ee1bb..ab67194b47 100644 --- 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, ''); -- 2.11.0