From: Bill Erickson <berick@esilibrary.com>
Date: Wed, 3 Oct 2012 15:01:55 +0000 (-0400)
Subject: Return msg IDs from process_retrieval for back-compat consistency
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0b34414cb81c71907c7999f1328188e09abdb6d8;p=evergreen%2Fequinox.git

Return msg IDs from process_retrieval for back-compat consistency

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm
index ee50f41123..ada8f9af2f 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm
@@ -149,7 +149,7 @@ sub retrieve_core {
             }
             my $incoming = __PACKAGE__->process_retrieval($content, $remote_file, $server, $account->id, $e);
 #           $server->delete(remote_file => $_);   # delete remote copies of saved message
-            push @return, $incoming->id;
+            push @return, @$incoming;
         }
     }
     return \@return;
@@ -168,6 +168,7 @@ sub process_retrieval {
     # create one edi_message per included message
 
     my $messages = OpenILS::Utils::EDIReader->new->read($content);
+    my @return;
 
     for my $msg_hash (@$messages) {
 
@@ -207,7 +208,11 @@ sub process_retrieval {
         }
         $e->update_acq_edi_message($incoming);
         $e->xact_commit;
+
+        push(@return, $incoming->id);
     }
+
+    return \@return;
 }
 
 # ->send_core