From 45a33a9a4035c19342be397e90194ba5ec9ac8b4 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Mon, 8 Dec 2008 11:42:47 -0600
Subject: [PATCH] Minor cleanup, unused variable removed.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 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