From 655e45f42c7fd18f92118759d2bfe85c66345416 Mon Sep 17 00:00:00 2001
From: Jeff Davis <jdavis@sitka.bclibraries.ca>
Date: Mon, 22 May 2017 13:26:10 -0700
Subject: [PATCH] LP#1682296: Avoid database query error on serials batch
 receive

Signed-off-by: Jeff Davis <jdavis@sitka.bclibraries.ca>
---
 Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
index 50113ebc52..b558bb8b28 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Serial.pm
@@ -3229,7 +3229,7 @@ sub bre_by_identifier {
         $search->disconnect;
 
         # Un-nest results. They tend to look like [[1],[2],[3]] for some reason.
-        @ids = map { @{$_} } @{$search_result->{"ids"}};
+        @ids = map { @{$_}[0] } @{$search_result->{"ids"}};
 
         unless (@ids) {
             $e->disconnect;
-- 
2.11.0