From f4d902a76cc707a049598ee7a85b661da3eab867 Mon Sep 17 00:00:00 2001 From: Clay Fouts Date: Mon, 27 Oct 2008 17:04:25 -0700 Subject: [PATCH] bug 2729: redundant call to C4::Biblio::get_biblio_authorised_values Removes redundant and expensive call to C4:Biblio:get_biblio_authorised_values Signed-off-by: Galen Charlton --- C4/Search.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/C4/Search.pm b/C4/Search.pm index 04da4eae68..26db95ed87 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; -- 2.39.5