From: Mike Rylander <mrylander@gmail.com>
Date: Tue, 12 Apr 2011 14:48:59 +0000 (-0400)
Subject: _records_to_mods() returns an arrayref, pull off the first one
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=4b74512e1aace653a89d4109943a32d4eb13811f;p=evergreen%2Fequinox.git

_records_to_mods() returns an arrayref, pull off the first one
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm
index 063d82678d..5cd7087fc9 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm
@@ -686,7 +686,7 @@ sub find_peer_bibs {
     # create a unique hash of the primary record MVRs for foreign copies
     # XXX PLEASE let's change to unAPI2 (supports foreign copies) in the TT opac?!?
     my %rec_hash = map {
-        ($_->target_copy->call_number->record, _records_to_mods( $_->target_copy->call_number->record ))
+        ($_->target_copy->call_number->record, _records_to_mods( $_->target_copy->call_number->record )->[0])
     } @$multi_home_list;
 
     # set the foreign_copy_maps field to an empty array