From: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Date: Thu, 16 Aug 2012 19:38:59 +0000 (-0400)
Subject: Fix thinkos in EDI Invoicing
X-Git-Url: http://git.equinoxoli.org/?p=transitory.git;a=commitdiff_plain;h=fc568aaaeaa6c429690c2ed6028aa3c5811c0424

Fix thinkos in EDI Invoicing

The lesson of the day is, test the code you actually commit, not just
the bits and pieces.  Thanks to Bill Erickson on this.

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
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 277f76e..6e9ce69 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm
@@ -486,7 +486,7 @@ sub process_jedi {
                     new OpenILS::Utils::LooseEDI::Message($part->{$key});
                 push @messages, $invoice_message if
                     $class->create_acq_invoice_from_edi(
-                        $e, $invoice_message, $remote->provider
+                        $e, $invoice_message, $remote->provider, $message
                     );
                 next;
             }
@@ -661,7 +661,7 @@ sub create_acq_invoice_from_edi {
         $logger->error(
             $log_prefix . "no invoice ID # in INVOIC message; " . shift
         );
-    }
+    };
     return 0 unless $eg_inv->inv_ident;
 
     my @eg_inv_entries;