From 75141646b2742b44f0e3f619f9f0bad0f9565bd4 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 29 Mar 2011 16:21:09 +0000 Subject: [PATCH] in the case of multiple xact event error responses, capture the first for staff client reporting git-svn-id: svn://svn.open-ils.org/ILS/trunk@19889 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/offline/offline.pl | 10 ++++++++-- 1 files changed, 8 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/offline/offline.pl b/Open-ILS/src/offline/offline.pl index 0b4bb47..637a885 100755 --- a/Open-ILS/src/offline/offline.pl +++ b/Open-ILS/src/offline/offline.pl @@ -338,8 +338,14 @@ sub ol_status { $resfile = "$basedir/archive/$org/$seskey/results"; } my $data = ol_file_to_perl($resfile); - $data = [ grep { $_->{event}->{ilsevent} ne '0' } @$data ]; - ol_handle_result($data); + my $data2 = []; + for my $d (@$data) { + my $evt = $d->{event}; + $evt = $evt->[0] if ref $evt eq 'ARRAY'; + push(@$data2, $d) if $evt->{ilsevent} ne '0'; + } + #$data = [ grep { $_->{event}->{ilsevent} ne '0' } @$data ]; + ol_handle_result($data2); } } -- 1.7.2.5