From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Fri, 4 Jan 2008 00:20:35 +0000 (-0600)
Subject: pendingreserves.pl - debugify warn
X-Git-Tag: v3.00.00-alpha~57
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=ee1a241479e6bf597c153fb4529ef411447f9362;p=koha-ffzg.git

pendingreserves.pl - debugify warn

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---

diff --git a/circ/pendingreserves.pl b/circ/pendingreserves.pl
index 76ad768171..e37a33e139 100755
--- a/circ/pendingreserves.pl
+++ b/circ/pendingreserves.pl
@@ -25,6 +25,12 @@ use CGI;
 use C4::Auth;
 use C4::Dates qw/format_date format_date_in_iso/;
 
+use vars qw($debug);
+
+BEGIN {
+    $debug = $ENV{DEBUG} || 0;
+}
+
 my $input = new CGI;
 my $order = $input->param('order');
 my $startdate=$input->param('from');
@@ -64,8 +70,7 @@ my $todaysdate =
 
 my $dbh    = C4::Context->dbh;
 my ($sqlorderby, $sqldatewhere) = ("","");
-warn format_date_in_iso($startdate);
-warn format_date_in_iso($enddate);
+$debug and warn format_date_in_iso($startdate) . "\n" . format_date_in_iso($enddate);
 $sqldatewhere .= " AND reservedate >= " . $dbh->quote(format_date_in_iso($startdate))  if ($startdate) ;
 $sqldatewhere .= " AND reservedate <= " . $dbh->quote(format_date_in_iso($enddate))  if ($enddate) ;