From b0f6015eb39ba48e5a1cea427666f568a814e524 Mon Sep 17 00:00:00 2001
From: Jason Stephenson <jason@sigio.com>
Date: Mon, 22 Sep 2014 13:20:57 -0400
Subject: [PATCH] Check for repeated BibliographId in
 NCIP::ILS->find_bibliographic_id.

Signed-off-by: Jason Stephenson <jason@sigio.com>
---
 lib/NCIP/ILS.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/NCIP/ILS.pm b/lib/NCIP/ILS.pm
index 9caa595..bbc88a6 100644
--- a/lib/NCIP/ILS.pm
+++ b/lib/NCIP/ILS.pm
@@ -423,6 +423,9 @@ sub find_bibliographic_id {
         $idxml = $request->{$message}->{BibliographicId};
     }
     if ($idxml) {
+        # BibliographicId is repeatable in some messages, but we only
+        # use the first one.
+        $idxml = $idxml->[0] if (ref($idxml) eq 'ARRAY');
         if ($idxml->{BibliographicRecordId}) {
             my ($identifier, $agencyid, $code);
             $identifier = $idxml->{BibliographicRecordId}->{BibliographicRecordIdentifier};
-- 
2.11.0