don't dump debug output without DEBUG=1

diff --git a/html.pl b/html.pl
index 84d54e2..2acc2df 100755 (executable)
--- a/html.pl
+++ b/html.pl
@@ -21,7 +21,7 @@ my $dbh = C4::Context->dbh;
 
 sub debug {
        my ($title, $data) = @_;
-       print "# $title ",dump($data), $/;
+       print "# $title ",dump($data), $/ if $ENV{DEBUG};
 }
 
 my $xslfilename = 'compact.xsl';