From 45a33a9a4035c19342be397e90194ba5ec9ac8b4 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 8 Dec 2008 11:42:47 -0600 Subject: [PATCH] Minor cleanup, unused variable removed. Signed-off-by: Galen Charlton --- C4/Search.pm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/C4/Search.pm b/C4/Search.pm index 26db95ed87..ecb1e77b1d 100644 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -16,6 +16,7 @@ package C4::Search; # Suite 330, Boston, MA 02111-1307 USA use strict; +# use warnings; # FIXME require Exporter; use C4::Context; use C4::Biblio; # GetMarcFromKohaField @@ -990,11 +991,8 @@ sub buildQuery { } # Detect Truncation - my ( $nontruncated, $righttruncated, $lefttruncated, - $rightlefttruncated, $regexpr ); my $truncated_operand; - ( - $nontruncated, $righttruncated, $lefttruncated, + my( $nontruncated, $righttruncated, $lefttruncated, $rightlefttruncated, $regexpr ) = _detect_truncation( $operand, $index ); warn @@ -1361,7 +1359,6 @@ s/\[(.?.?.?.?)$tagsubf(.*?)]/$1$subfieldvalue$2\[$1$tagsubf$2]/g; my $item_in_transit_count = 0; my $can_place_holds = 0; my $items_count = scalar(@fields); - my $items_counter; my $maxitems = ( C4::Context->preference('maxItemsinSearchResults') ) ? C4::Context->preference('maxItemsinSearchResults') - 1 @@ -1370,7 +1367,6 @@ s/\[(.?.?.?.?)$tagsubf(.*?)]/$1$subfieldvalue$2\[$1$tagsubf$2]/g; # loop through every item foreach my $field (@fields) { my $item; - $items_counter++; # populate the items hash foreach my $code ( keys %subfieldstosearch ) { -- 2.39.5