[open-ils-commits] r16758 - trunk/Open-ILS/src/support-scripts (atz)

[svn at svn.open-ils.org]

Author: atz
Date: 2010-06-18 11:56:56 -0400 (Fri, 18 Jun 2010)
New Revision: 16758

Modified:
   trunk/Open-ILS/src/support-scripts/edi_pusher.pl
Log:
Log message to both STDERR and log.

Modified: trunk/Open-ILS/src/support-scripts/edi_pusher.pl
===================================================================
--- trunk/Open-ILS/src/support-scripts/edi_pusher.pl	2010-06-18 15:56:55 UTC (rev 16757)
+++ trunk/Open-ILS/src/support-scripts/edi_pusher.pl	2010-06-18 15:56:56 UTC (rev 16758)
@@ -88,14 +88,16 @@
     $query->{limit} = $remaining if $remaining > 0;
 
     if ($opts->{verbose}) {
+        # $subq->{'select'}->{'acqedim'} = ['id', 'purchase_order', 'message_type', 'status'];
         my $excluded = $e->json_query($subq);
-        print "Excluded: ", scalar(@$excluded), " purchase order(s): ", join("\n", map {Dumper $_} @$excluded), "\n";
+        print "Excluded: ", scalar(@$excluded), " purchase order(s):\n", Dumper(\@$excluded), "\n";
     }
 
     my $events = $e->json_query($query);
 
     if(!$events) {
-        $logger->error("error querying JEDI events for event definition $def->id");
+        print STDERR   "error querying JEDI events for event definition ", $def->id, "\n";
+        $logger->error("error querying JEDI events for event definition ". $def->id);
         next;
     }