[Koha-patches] [PATCH 02/11] unconditional warning changed to if $DEBUG

[Henri-Damien LAURENT]

From: Paul Poulain <paul.poulain at biblibre.com>


Signed-off-by: Henri-Damien LAURENT <henridamien.laurent at biblibre.com>
---
 C4/Search.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index cbe212f..82ae4e5 100644
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -2612,7 +2612,7 @@ sub GetDistinctValues {
     if ($fieldname=~/\./){
 			my ($table,$column)=split /\./, $fieldname;
 			my $dbh = C4::Context->dbh;
-			warn "select DISTINCT($column) as value, count(*) as cnt from $table group by lib order by $column ";
+			warn "select DISTINCT($column) as value, count(*) as cnt from $table group by lib order by $column " if $DEBUG;
 			my $sth = $dbh->prepare("select DISTINCT($column) as value, count(*) as cnt from $table ".($string?" where $column like \"$string%\"":"")."group by value order by $column ");
 			$sth->execute;
 			my $elements=$sth->fetchall_arrayref({});
-- 
1.6.3.3