From c98a73b88ed0cbbbfa1f445a3ffb6a90dd3a6c0d Mon Sep 17 00:00:00 2001
From: atz <atz@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 18 Jun 2010 15:56:56 +0000
Subject: [PATCH] Log message to both STDERR and log.
git-svn-id: svn://svn.open-ils.org/ILS/trunk@16758 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
Open-ILS/src/support-scripts/edi_pusher.pl | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/Open-ILS/src/support-scripts/edi_pusher.pl b/Open-ILS/src/support-scripts/edi_pusher.pl
index f6065afff3..eb7f29f6af 100755
--- 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;
}
--
2.11.0