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 85cf3b2..ea7092f 100644 (file)
--- 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};