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 (file)
--- 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;