From: Bill Erickson <berickxx@gmail.com>
Date: Thu, 3 Nov 2016 13:10:23 +0000 (-0400)
Subject: LP#1513872 EDI writer li attrs order matches legacy
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=refs%2Fheads%2Fuser%2Fberick%2Flp1513872-acq-edi-account-attrs-wip;p=working%2FEvergreen.git

LP#1513872 EDI writer li attrs order matches legacy

Signed-off-by: Bill Erickson <berickxx@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 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};