[open-ils-commits] r19889 - trunk/Open-ILS/src/offline (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-03-29 12:21:09 -0400 (Tue, 29 Mar 2011)
New Revision: 19889

Modified:
   trunk/Open-ILS/src/offline/offline.pl
Log:
in the case of multiple xact event error responses, capture the first for staff client reporting

Modified: trunk/Open-ILS/src/offline/offline.pl
===================================================================
--- trunk/Open-ILS/src/offline/offline.pl	2011-03-29 16:07:17 UTC (rev 19888)
+++ trunk/Open-ILS/src/offline/offline.pl	2011-03-29 16:21:09 UTC (rev 19889)
@@ -338,8 +338,14 @@
 			$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);
 	}
 }