From af0fad6a4c7f3d545f0260d2ed6e61f364206a29 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Tue, 23 Sep 2008 12:01:48 -0500
Subject: [PATCH] Convert to C4::Debug, comment out unused Data::Dumper.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 tools/viewlog.pl | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/tools/viewlog.pl b/tools/viewlog.pl
index 52062143b8..3c65b6a9a4 100755
--- a/tools/viewlog.pl
+++ b/tools/viewlog.pl
@@ -28,23 +28,20 @@ use C4::Output;
 use C4::Log;
 use C4::Items;
 use C4::Branch;
-use Data::Dumper;
+use C4::Debug;
+# use Data::Dumper;
 
-use vars qw($debug);
-
-BEGIN {
-	$debug = $ENV{DEBUG} || 0;
-}
+use vars qw($debug $cgi_debug);
 
 =head1 viewlog.pl
 
-plugin that shows a stats on borrowers
+plugin that shows stats
 
 =cut
 
 my $input    = new CGI;
 
-$debug or $debug = $input->param('debug') || 0;
+$debug or $debug = $cgi_debug;
 my $do_it    = $input->param('do_it');
 my $module   = $input->param("module");
 my $user     = $input->param("user");
-- 
2.39.5