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