From aeb0e1988b919119716862e2df7a9d9cc58dc979 Mon Sep 17 00:00:00 2001
From: Paul POULAIN <paul.poulain@biblibre.com>
Date: Wed, 13 Feb 2008 13:03:21 -0600
Subject: [PATCH] bugfixing scan index for UNIMARC

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Search.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index e079a0dc1a..30e9553f1a 100644
--- 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();
                     }
-- 
2.39.5