Log message to both STDERR and log.

git-svn-id: svn://svn.open-ils.org/ILS/trunk@16758 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/support-scripts/edi_pusher.pl b/Open-ILS/src/support-scripts/edi_pusher.pl
index f6065af..eb7f29f 100755 (executable)
--- a/Open-ILS/src/support-scripts/edi_pusher.pl
+++ b/Open-ILS/src/support-scripts/edi_pusher.pl
@@ -88,14 +88,16 @@ foreach my $def (@$defs) {
     $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;
     }