[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