_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 063d826..5cd7087 100644 (file)
--- 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