[open-ils-commits] r16427 - in trunk/Open-ILS: examples src/perlmods/OpenILS/Application/Acq src/support-scripts (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-05-13 11:20:36 -0400 (Thu, 13 May 2010)
New Revision: 16427

Modified:
   trunk/Open-ILS/examples/fm_IDL.xml
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
   trunk/Open-ILS/src/support-scripts/edi_pusher.pl
Log:
fixed some typos, thinkos in EDI cross-walk

Modified: trunk/Open-ILS/examples/fm_IDL.xml
===================================================================
--- trunk/Open-ILS/examples/fm_IDL.xml	2010-05-13 15:02:58 UTC (rev 16426)
+++ trunk/Open-ILS/examples/fm_IDL.xml	2010-05-13 15:20:36 UTC (rev 16427)
@@ -5816,6 +5816,7 @@
 		</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>

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-05-13 15:02:58 UTC (rev 16426)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-05-13 15:20:36 UTC (rev 16427)
@@ -2215,7 +2215,7 @@
     }
 
     # 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;
 }

Modified: trunk/Open-ILS/src/support-scripts/edi_pusher.pl
===================================================================
--- trunk/Open-ILS/src/support-scripts/edi_pusher.pl	2010-05-13 15:02:58 UTC (rev 16426)
+++ trunk/Open-ILS/src/support-scripts/edi_pusher.pl	2010-05-13 15:20:36 UTC (rev 16427)
@@ -25,6 +25,7 @@
 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 @@
                 }
             }
         },
-        order_by => {atev => 'add_time'}
+        order_by => {atev => ['add_time']}
     };
 
     $query->{limit} = $remaining if $remaining > 0;
@@ -96,7 +97,12 @@
 
     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