use Date::Manip;
use C4::Stats;
+use vars qw($debug);
+
+BEGIN {
+ $debug = $ENV{DEBUG} || 0;
+}
+
my $input = new CGI;
my $time = $input->param('time');
if ( $time eq 'month' ) {
$date = ParseDate('1 month ago');
$date2 = ParseDate('today');
- warn "d : $date // d2 : $date2";
+ $debug and warn "d : $date // d2 : $date2";
}
if ( $time =~ /\// ) {
$date = ParseDate($time);
}
$date = UnixDate( $date, '%Y-%m-%d' );
$date2 = UnixDate( $date2, '%Y-%m-%d' );
-warn "d : $date // d2 : $date2";
+$debug and warn "d : $date // d2 : $date2";
my @payments = TotalPaid( $date, $date2 );
my $count = @payments;
my $total = 0;
+my $totalw = 0;
my $oldtime;
-my $totalw = 0;
my @loop;
my %row;
my $i = 0;
while ( $i < $count ) {
- warn " pay : " . $payments[$i]{'timestamp'};
+ $debug and warn " pay : " . $payments[$i]{'timestamp'};
my $time = $payments[$i]{'datetime'};
my $payments = $payments[$i]{'value'};
my $charge = 0;
}
}
}
- my $hour = substr( $payments[$i]{'timestamp'}, 8, 2 );
- my $min = substr( $payments[$i]{'timestamp'}, 10, 2 );
- my $sec = substr( $payments[$i]{'timestamp'}, 12, 2 );
- my $time = "$hour:$min:$sec";
- my $time2 = "$payments[$i]{'date'}";
+ my $time2 = $payments[$i]{'date'};
my $branch = Getpaidbranch( $time2, $payments[$i]{'borrowernumber'} );
my $borrowernumber = $payments[$i]{'borrowernumber'};
my $oldtime = $payments[$i]{'timestamp'};
&& $oldtype == $payments[$i]{'accounttype'}
&& $oldtime eq $payments[$i]{'timestamp'} )
{
- my $hour = substr( $payments[$i]{'timestamp'}, 8, 2 );
- my $min = substr( $payments[$i]{'timestamp'}, 10, 2 );
- my $sec = substr( $payments[$i]{'timestamp'}, 12, 2 );
- my $time = "$hour:$min:$sec";
- my $time2 = "$payments[$i]{'date'}";
- my $branch = Getpaidbranch( $time2, $payments[$i]{'borrowernumber'} );
+ my $xtime2 = $payments[$i]{'date'};
+ my $branch = Getpaidbranch( $xtime2, $payments[$i]{'borrowernumber'} );
if ( $payments[$i]{'accounttype'} eq 'W' ) {
$totalw += $payments[$i]{'amount'};
}