From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Tue, 23 Sep 2008 17:01:48 +0000 (-0500)
Subject: Convert to C4::Debug, comment out unused Data::Dumper.
X-Git-Tag: new_acq_a_porter~880
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=af0fad6a4c7f3d545f0260d2ed6e61f364206a29;p=koha_ffzg

Convert to C4::Debug, comment out unused Data::Dumper.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---

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");