in the case of multiple xact event error responses, capture the first for staff clien...

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 0b4bb47..637a885 100755 (executable)
--- 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);
        }
 }