From 76fe12f78e591527094536df9cc010d8132f6498 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 13 May 2010 15:20:36 +0000
Subject: [PATCH] fixed some typos, thinkos in EDI cross-walk

git-svn-id: svn://svn.open-ils.org/ILS/trunk@16427 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/examples/fm_IDL.xml                           |  1 +
 Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm |  2 +-
 Open-ILS/src/support-scripts/edi_pusher.pl             | 10 ++++++++--
 3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/Open-ILS/examples/fm_IDL.xml b/Open-ILS/examples/fm_IDL.xml
index 14ebccb403..3c192219ec 100644
--- a/Open-ILS/examples/fm_IDL.xml
+++ b/Open-ILS/examples/fm_IDL.xml
@@ -5816,6 +5816,7 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
 		</fields>
 		<links>
 			<link field="provider" reltype="has_a" key="id" map="" class="acqpro"/>
+			<link field="owner" reltype="has_a" key="id" map="" class="aou"/>
 		</links>
         <permacrud xmlns="http://open-ils.org/spec/opensrf/IDL/permacrud/v1">
             <actions>
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
index c40f4f475d..7e6654037a 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
@@ -2215,7 +2215,7 @@ sub activate_purchase_order_impl {
     }
 
     # tell the world we activated a PO
-    $U->create_events_for_hook('acqpo.activate', $po, $po->ordering_agency);
+    $U->create_events_for_hook('acqpo.activated', $po, $po->ordering_agency);
 
     return undef;
 }
diff --git a/Open-ILS/src/support-scripts/edi_pusher.pl b/Open-ILS/src/support-scripts/edi_pusher.pl
index 6eeed72f41..9913d88b4b 100644
--- a/Open-ILS/src/support-scripts/edi_pusher.pl
+++ b/Open-ILS/src/support-scripts/edi_pusher.pl
@@ -25,6 +25,7 @@ use OpenILS::Utils::Cronscript;
 use OpenILS::Utils::Fieldmapper;
 use OpenILS::Application::AppUtils;
 use OpenILS::Application::Acq::EDI;
+use OpenSRF::Utils::Logger q/$logger/;
 
 INIT {
     $debug = 1;
@@ -86,7 +87,7 @@ foreach my $def (@$defs) {
                 }
             }
         },
-        order_by => {atev => 'add_time'}
+        order_by => {atev => ['add_time']}
     };
 
     $query->{limit} = $remaining if $remaining > 0;
@@ -96,7 +97,12 @@ foreach my $def (@$defs) {
 
     print "Event definition ", $def->id, " has ", scalar(@$events), " event(s)\n";
     foreach (@$events) {
-        my $event = $e->retrieve_action_trigger_event($_);
+
+        my $event = $e->retrieve_action_trigger_event([
+            $_->{id}, 
+            {flesh => 1, flesh_fields => {atev => ['template_output']}}
+        ]);
+
         my $message = Fieldmapper::acq::edi_message->new;
         $message->create_time('NOW');   # will need this later when we try to update from the object
         print "Event ", $event->id, " targets PO ", $event->target, ":\n";  # target is an opaque identifier, so we cannot flesh it
-- 
2.43.2