From 36ffef127b9866687377be140357a6376e4e9684 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Fri, 26 Mar 2010 11:25:32 +0100 Subject: [PATCH] unconditional warning changed to if $DEBUG Signed-off-by: Henri-Damien LAURENT Signed-off-by: Galen Charlton --- C4/Search.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Search.pm b/C4/Search.pm index 554174cb28..11612231cc 100644 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -2607,7 +2607,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({}); -- 2.39.5