[Koha-patches] [PATCH] (bug #3592) fix scan of terms

Nahuel ANGELINETTI nahuel.angelinetti at biblibre.com
Wed Sep 9 14:12:36 CEST 2009


---
 C4/Search.pm |   14 ++++++++------
 1 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index e69fd61..6b17dbe 100644
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1451,19 +1451,21 @@ 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] );
         my $biblionumber;
         
-        if ($bibliotag<10){
-            $biblionumber = $marcrecord->field($bibliotag)->data;
-        }else{
-            $biblionumber = $marcrecord->subfield($bibliotag,$bibliosubf);
+        if(not $scan){
+            if ($bibliotag<10){
+                $biblionumber = $marcrecord->field($bibliotag)->data;
+            }else{
+                $biblionumber = $marcrecord->subfield($bibliotag,$bibliosubf);
+            } 
+            $fw = GetFrameworkCode($biblionumber);
         }
-        $fw = GetFrameworkCode($biblionumber);
         
         my $oldbiblio = TransformMarcToKoha( $dbh, $marcrecord, $fw );
         $oldbiblio->{subtitle} = GetRecordValue('subtitle', $marcrecord, $fw);
-- 
1.6.0.4




More information about the Koha-patches mailing list