Check for repeated BibliographId in NCIP::ILS->find_bibliographic_id.

Signed-off-by: Jason Stephenson <jason@sigio.com>

diff --git a/lib/NCIP/ILS.pm b/lib/NCIP/ILS.pm
index 9caa595..bbc88a6 100644 (file)
--- 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};