[Koha-patches] [PATCH] use C4::Debug instead of checking DEBUG env var directly
Galen Charlton
galen.charlton at liblime.com
Tue Apr 1 19:01:08 CEST 2008
---
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 346084a..a1586a7 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 7400638..b9fa6d9 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 d7fecbe..8523a1e 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');
--
1.5.5.rc0.16.g02b00
More information about the Koha-patches
mailing list