From ef8a880b2558f5ea91d9bd6f71689974d28181ee Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 1 Apr 2008 12:01:08 -0500 Subject: [PATCH] use C4::Debug instead of checking DEBUG env var directly Signed-off-by: Joshua Ferraro --- circ/billing.pl | 7 +------ circ/pendingreserves.pl | 7 +------ circ/reserveratios.pl | 7 +------ 3 files changed, 3 insertions(+), 18 deletions(-) diff --git a/circ/billing.pl b/circ/billing.pl index 346084a82e..a1586a7144 100755 --- a/circ/billing.pl +++ b/circ/billing.pl @@ -24,14 +24,9 @@ use C4::Output; use CGI; use C4::Auth; use C4::Dates qw/format_date format_date_in_iso/; +use C4::Debug; use Date::Calc qw/Today Add_Delta_YM/; -use vars qw($debug); - -BEGIN { - $debug = $ENV{DEBUG} || 0; -} - my $input = new CGI; my $order = $input->param('order'); my $startdate=$input->param('from'); diff --git a/circ/pendingreserves.pl b/circ/pendingreserves.pl index 7400638e60..b9fa6d90ce 100755 --- a/circ/pendingreserves.pl +++ b/circ/pendingreserves.pl @@ -29,14 +29,9 @@ use C4::Output; use CGI; use C4::Auth; use C4::Dates qw/format_date format_date_in_iso/; +use C4::Debug; use Date::Calc qw/Today Add_Delta_YMD/; -use vars qw($debug); - -BEGIN { - $debug = $ENV{DEBUG} || 0; -} - my $input = new CGI; my $order = $input->param('order'); my $startdate=$input->param('from'); diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl index d7fecbe943..8523a1e7fa 100755 --- a/circ/reserveratios.pl +++ b/circ/reserveratios.pl @@ -24,14 +24,9 @@ use C4::Output; use CGI; use C4::Auth; use C4::Dates qw/format_date format_date_in_iso/; +use C4::Debug; use Date::Calc qw/Today Add_Delta_YM/; -use vars qw($debug); - -BEGIN { - $debug = $ENV{DEBUG} || 0; -} - my $input = new CGI; my $order = $input->param('order'); my $startdate=$input->param('from'); -- 2.39.2