<% my $charged = < extract(epoch from now())-2592000 and cust_main.custnum = cust_bill.custnum ) ,0 ) as owed_0_30, coalesce( ( select $charged from cust_bill where cust_bill._date > extract(epoch from now())-5184000 and cust_bill._date <= extract(epoch from now())-2592000 and cust_main.custnum = cust_bill.custnum ) ,0 ) as owed_30_60, coalesce( ( select $charged from cust_bill where cust_bill._date > extract(epoch from now())-7776000 and cust_bill._date <= extract(epoch from now())-5184000 and cust_main.custnum = cust_bill.custnum ) ,0 ) as owed_60_90, coalesce( ( select $charged from cust_bill where cust_bill._date <= extract(epoch from now())-7776000 and cust_main.custnum = cust_bill.custnum ) ,0 ) as owed_90_plus, coalesce( ( select $charged from cust_bill where cust_main.custnum = cust_bill.custnum ) ,0 ) as owed_total END my $recurring = <prepare($sql) or die dbh->errstr; $sth->execute or die $sth->errstr; my $total_sth = dbh->prepare($total_sql) or die dbh->errstr; $total_sth->execute or die $total_sth->errstr; %> <%= header('Accounts Receivable Aging Summary', menubar( 'Main Menu'=>$p, ) ) %> <%= table() %> Customer Status 0-30 30-60 60-90 90+ Total <% while ( my $row = $sth->fetchrow_hashref() ) { my $status = 'Cancelled'; my $statuscol = 'FF0000'; if ( $row->{uncancelled_pkgs} ) { $status = 'Suspended'; $statuscol = 'FF9900'; if ( $row->{active_pkgs} ) { $status = 'Active'; $statuscol = '00CC00'; } } %> <%= $row->{'custnum'} %>: <%= $row->{'company'} ? $row->{'company'}. ' (' : '' %><%= $row->{'last'}. ', '. $row->{'first'} %><%= $row->{'company'} ? ')' : '' %> <%= $status %> $<%= sprintf("%.2f", $row->{'owed_0_30'} ) %> $<%= sprintf("%.2f", $row->{'owed_30_60'} ) %> $<%= sprintf("%.2f", $row->{'owed_60_90'} ) %> $<%= sprintf("%.2f", $row->{'owed_90_plus'} ) %> $<%= sprintf("%.2f", $row->{'owed_total'} ) %> <% } %> <% my $row = $total_sth->fetchrow_hashref(); %>   Total $<%= sprintf("%.2f", $row->{'owed_0_30'} ) %> $<%= sprintf("%.2f", $row->{'owed_30_60'} ) %> $<%= sprintf("%.2f", $row->{'owed_60_90'} ) %> $<%= sprintf("%.2f", $row->{'owed_90_plus'} ) %> $<%= sprintf("%.2f", $row->{'owed_total'} ) %>