[open-ils-commits] r19892 - branches/rel_2_1/Open-ILS/src/offline (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-03-29 12:22:02 -0400 (Tue, 29 Mar 2011)
New Revision: 19892

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

Modified: branches/rel_2_1/Open-ILS/src/offline/offline.pl
===================================================================
--- branches/rel_2_1/Open-ILS/src/offline/offline.pl	2011-03-29 16:22:01 UTC (rev 19891)
+++ branches/rel_2_1/Open-ILS/src/offline/offline.pl	2011-03-29 16:22:02 UTC (rev 19892)
@@ -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);
 	}
 }