From 3c34ec4196293575838954e31bf538a9f21b44e1 Mon Sep 17 00:00:00 2001
From: Bill Erickson <berickxx@gmail.com>
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 <berickxx@gmail.com>
Signed-off-by: Jessica Woolford <jwoolford@biblio.org>
Signed-off-by: Jane Sandberg <sandbergja@gmail.com>
---
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