[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