From 512e79ff682e15b341324aed7d5908d3f0b8a0e3 Mon Sep 17 00:00:00 2001 From: hpassini Date: Mon, 30 Jul 2007 15:55:48 +0000 Subject: [PATCH] *** empty log message *** --- reports/borrowers_stats.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl index 942905a721..1911352580 100755 --- a/reports/borrowers_stats.pl +++ b/reports/borrowers_stats.pl @@ -302,7 +302,7 @@ sub calculate { # year of activity my ( $period_year, $period_month, $period_day )=Add_Delta_YM( Today(),-$period, 0); my $newperioddate=$period_year."-".$period_month."-".$period_day; - warn "PERIOD".$period; +# warn "PERIOD".$period; # 1st, loop rows. my $linefield; if (($line =~/zipcode/) and ($digits)) { @@ -405,7 +405,7 @@ sub calculate { $strcalc .= " AND borrowernumber not in (select distinct(borrowernumber) from issues where issuedate > '" . $newperioddate . "')" if ($activity eq 'nonactive'); $strcalc .= " AND $status='1' " if ($status); $strcalc .= " group by $linefield, $colfield"; - warn "". $strcalc; +# warn "". $strcalc; my $dbcalc = $dbh->prepare($strcalc); $dbcalc->execute; # warn "filling table"; -- 2.39.5