From 4fb1b2fd8ecea0acccb0bfe04186cba08d100240 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 3 Nov 2016 09:10:23 -0400 Subject: [PATCH] LP#1513872 EDI writer li attrs order matches legacy Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm index 85cf3b2fc9..ea7092f0b4 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm @@ -448,15 +448,15 @@ sub build_lineitem_segments { $edi .= "PIA+5+$idval:$idqual'\n"; $edi .= $self->IMD('BTI', $li_hash->{title}); - $edi .= $self->IMD('BPD', $li_hash->{pubdate}); $edi .= $self->IMD('BPU', $li_hash->{publisher}); - - $edi .= $self->IMD('BAU', $li_hash->{author}) - if $c{edi_attrs}->{INCLUDE_BIB_AUTHOR}; + $edi .= $self->IMD('BPD', $li_hash->{pubdate}); $edi .= $self->IMD('BEN', $li_hash->{edition}) if $c{edi_attrs}->{INCLUDE_BIB_EDITION}; + $edi .= $self->IMD('BAU', $li_hash->{author}) + if $c{edi_attrs}->{INCLUDE_BIB_AUTHOR}; + $edi .= $self->IMD('BPH', $li_hash->{pagination}) if $c{edi_attrs}->{INCLUDE_BIB_PAGINATION}; -- 2.11.0