From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 29 Mar 2011 16:21:09 +0000 (+0000)
Subject: in the case of multiple xact event error responses, capture the first for staff clien... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=75141646b2742b44f0e3f619f9f0bad0f9565bd4;p=contrib%2FConifer.git

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
---

diff --git a/Open-ILS/src/offline/offline.pl b/Open-ILS/src/offline/offline.pl
index 0b4bb475cd..637a885c2e 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);
 	}
 }