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 |
- |
|
|