From d585024225bca88acd72d0f8d4d060e407dac322 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 14 Dec 2005 15:58:23 +0000
Subject: [PATCH] removing warning

---
 C4/Search.pm     | 1 -
 C4/SearchMarc.pm | 1 -
 2 files changed, 2 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 6e21ce3e3a..0a346eac3a 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1854,7 +1854,6 @@ sub BornameSearch  {
 	}
 
 	my $sth=$dbh->prepare($query);
-	warn "Q $orderby : $query";
 	$sth->execute(@bind);
 	my @results;
 	my $cnt=$sth->rows;
diff --git a/C4/SearchMarc.pm b/C4/SearchMarc.pm
index 9a3adb5845..f0978a4428 100644
--- a/C4/SearchMarc.pm
+++ b/C4/SearchMarc.pm
@@ -254,7 +254,6 @@ sub catalogsearch {
 				foreach my $word (split(/ /, @$value[$i]))
 				{
 					# remove the "%" for small word (3 letters. (note : the >4 is due to the % at the end)
-					warn "word : $word";
 					$word =~ s/%//g unless length($word)>4;
 					unless (C4::Context->stopwords->{uc($word)} or length($word)<=1) {	#it's NOT a stopword => use it. Otherwise, ignore
 						push @normal_tags, @$tags[$i];
-- 
2.39.5