bugfixing scan index for UNIMARC

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Search.pm b/C4/Search.pm
index e079a0d..30e9553 100644 (file)
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -467,15 +467,16 @@ sub getRecords {
                                 a => $term,
                                 f => $occ
                             );
+                            $tmprecord->append_fields($tmptitle);
                         }
                         else {
                             $tmptitle =
                               MARC::Field->new( '245', ' ', ' ', a => $term, );
                             $tmpauthor =
                               MARC::Field->new( '100', ' ', ' ', a => $occ, );
+                            $tmprecord->append_fields($tmptitle);
+                            $tmprecord->append_fields($tmpauthor);
                         }
-                        $tmprecord->append_fields($tmptitle);
-                        $tmprecord->append_fields($tmpauthor);
                         $results_hash->{'RECORDS'}[$j] =
                           $tmprecord->as_usmarc();
                     }