View | Details | Raw Unified | Return to bug 20185
Collapse All | Expand All

(-)a/reports/stats.print.pl (-6 / +5 lines)
Lines 61-68 if ($time2 ne ''){ Link Here
61
            $date2=ParseDate($time2);
61
            $date2=ParseDate($time2);
62
}
62
}
63
63
64
my $date=UnixDate($date,'%Y-%m-%d');
64
$date=UnixDate($date,'%Y-%m-%d');
65
my $date2=UnixDate($date2,'%Y-%m-%d');
65
$date2=UnixDate($date2,'%Y-%m-%d');
66
66
67
#warn "MASON: DATE: $date, $date2";
67
#warn "MASON: DATE: $date, $date2";
68
68
Lines 72-78 my @payments=TotalPaid($date,$date2); Link Here
72
my $count=@payments;
72
my $count=@payments;
73
# print "MASON: number of payments=$count\n";
73
# print "MASON: number of payments=$count\n";
74
74
75
my $i=0;
75
my $i = 0;
76
my $totalcharges=0;
76
my $totalcharges=0;
77
my $totalcredits=0;
77
my $totalcredits=0;
78
my $totalpaid=0;
78
my $totalpaid=0;
Lines 125-132 while ($i<$count ){ Link Here
125
#get credits and append to the bottom of payments
125
#get credits and append to the bottom of payments
126
my @credits=getcredits($date,$date2);
126
my @credits=getcredits($date,$date2);
127
127
128
my $count=@credits;
128
$count=@credits;
129
my $i=0;
129
$i=0;
130
130
131
while ($i<$count ){
131
while ($i<$count ){
132
132
133
- 

Return to bug 20185