[Koha-cvs] koha/reports borrowers_stats.pl

[passini]

CVSROOT:	/cvsroot/koha
Module name:	koha
Changes by:	passini <hpassini>	07/07/30 15:55:48

Modified files:
	reports        : borrowers_stats.pl 

Log message:
	

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/reports/borrowers_stats.pl?cvsroot=koha&r1=1.19&r2=1.20

Patches:
Index: borrowers_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/borrowers_stats.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- borrowers_stats.pl	30 Jul 2007 15:24:36 -0000	1.19
+++ borrowers_stats.pl	30 Jul 2007 15:55:48 -0000	1.20
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: borrowers_stats.pl,v 1.19 2007/07/30 15:24:36 hpassini Exp $
+# $Id: borrowers_stats.pl,v 1.20 2007/07/30 15:55:48 hpassini Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -302,7 +302,7 @@
 # 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 @@
 	$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";