From 0b34414cb81c71907c7999f1328188e09abdb6d8 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 3 Oct 2012 11:01:55 -0400 Subject: [PATCH] Return msg IDs from process_retrieval for back-compat consistency Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- 2.11.0