(bug #3592) fix scan of terms

Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>

diff --git a/C4/Search.pm b/C4/Search.pm
index 885e39c..353c5ab 100644 (file)
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1392,16 +1392,19 @@ sub searchResults {
 
     # We get the biblionumber position in MARC 
     my ($bibliotag,$bibliosubf)=GetMarcFromKohaField('biblio.biblionumber','');
-    my $fw;
+    my $fw = '';
     
     # loop through all of the records we've retrieved
     for ( my $i = $offset ; $i <= $times - 1 ; $i++ ) {
         my $marcrecord = MARC::File::USMARC::decode( $marcresults[$i] );
         
-        if ($bibliotag<10){
-            $fw = GetFrameworkCode($marcrecord->field($bibliotag)->data);
-        }else{
-            $fw = GetFrameworkCode($marcrecord->subfield($bibliotag,$bibliosubf));
+        if(not $scan){
+            if ($bibliotag<10){
+                $biblionumber = $marcrecord->field($bibliotag)->data;
+            }else{
+                $biblionumber = $marcrecord->subfield($bibliotag,$bibliosubf);
+            } 
+            $fw = GetFrameworkCode($biblionumber);
         }
         
         my $oldbiblio = TransformMarcToKoha( $dbh, $marcrecord, $fw );