[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