[Koha-patches] [PATCH] bug 2729: redundant call to C4::Biblio::get_biblio_authorised_values

Clay Fouts clay.fouts at liblime.com
Tue Oct 28 01:04:25 CET 2008


Removes redundant and expensive call to C4:Biblio:get_biblio_authorised_values
---
 C4/Search.pm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 04da4ea..26db95e 100644
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1264,8 +1264,7 @@ sub searchResults {
         # add imageurl to itemtype if there is one
         $oldbiblio->{imageurl} = getitemtypeimagelocation( 'opac', $itemtypes{ $oldbiblio->{itemtype} }->{imageurl} );
 
-		my $biblio_authorised_value_images = C4::Items::get_authorised_value_images( C4::Biblio::get_biblio_authorised_values( $oldbiblio->{biblionumber} ) );
-		$oldbiblio->{authorised_value_images} = $biblio_authorised_value_images;
+        $oldbiblio->{'authorised_value_images'}  = C4::Items::get_authorised_value_images( C4::Biblio::get_biblio_authorised_values( $oldbiblio->{'biblionumber'} ) );
         (my $aisbn) = $oldbiblio->{isbn} =~ /([\d-]*[X]*)/;
         $aisbn =~ s/-//g;
         $oldbiblio->{amazonisbn} = $aisbn;
@@ -1523,7 +1522,6 @@ s/\[(.?.?.?.?)$tagsubf(.*?)]/$1$subfieldvalue$2\[$1$tagsubf$2]/g;
         $oldbiblio->{orderedcount}         = $ordered_count;
         $oldbiblio->{isbn} =~
           s/-//g;    # deleting - in isbn to enable amazon content
-        $oldbiblio->{'authorised_value_images'}  = C4::Items::get_authorised_value_images( C4::Biblio::get_biblio_authorised_values( $oldbiblio->{'biblionumber'} ) );
         push( @newresults, $oldbiblio );
     }
     return @newresults;
-- 
1.4.4.4




More information about the Koha-patches mailing list