[Koha-cvs] koha/reports borrowers_stats.pl

[passini]

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

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.18&r2=1.19

Patches:
Index: borrowers_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/borrowers_stats.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- borrowers_stats.pl  10 Jul 2007 07:31:35 -0000      1.18
+++ borrowers_stats.pl  30 Jul 2007 15:24:36 -0000      1.19
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: borrowers_stats.pl,v 1.18 2007/07/10 07:31:35 hpassini Exp $
+# $Id: borrowers_stats.pl,v 1.19 2007/07/30 15:24:36 hpassini Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -28,6 +28,10 @@
 use C4::Acquisition;
 use C4::Output;
 use C4::Circulation;
+use Date::Calc qw(
+  Today
+  Add_Delta_YM
+  );
 
 =head1 NAME
 
@@ -46,6 +50,7 @@
 my $column = $input->param("Column");
 my @filters = $input->param("Filter");
 my $digits = $input->param("digits");
+my $period = $input->param("period");
 my $borstat = $input->param("status");
 my $borstat1 = $input->param("activity");
 my $output = $input->param("output");
@@ -294,6 +299,10 @@
        if ($activity) {
                push @loopfilter,{crit=>"Activity",filter=>$activity};
        }
+# 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;
 # 1st, loop rows.
        my $linefield;
        if (($line =~/zipcode/) and ($digits)) {
@@ -392,8 +401,8 @@
        $strcalc .= " AND sort1 like '" . @$filters[5] ."'" if ( @$filters[5] );
        @$filters[6]=~ s/\*/%/g if (@$filters[6]);
        $strcalc .= " AND sort2 like '" . @$filters[6] ."'" if ( @$filters[6] );
-       $strcalc .= " AND borrowernumber in (select distinct(borrowernumber) 
from issues where timestamp > ' 2007-01-01')" if ($activity eq 'active');
-       $strcalc .= " AND borrowernumber not in (select 
distinct(borrowernumber) from issues where timestamp > ' 2007-01-01')" if 
($activity eq 'nonactive');
+       $strcalc .= " AND borrowernumber in (select distinct(borrowernumber) 
from issues where issuedate > '" . $newperioddate . "')" if ($activity eq 
'active');
+       $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;