<% #false laziness with view/cust_bill.cgi $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/; my $beginning = str2time($1) || 0; $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/; my $ending = str2time($1) + 86399; my @cust_bill_event = sort { $a->_date <=> $b->_date } qsearch('cust_bill_event', { _date => { op=> '>=', value=>$beginning }, statustext => { op=> '!=', value=>'' }, # i wish... # _date => { op=> '<=', value=>$ending }, }, '', "AND _date <= $ending"); %> <%= header('Failed billing events') %> <%= table() %> Event Date Status Invoice (bill) name company <% if ( defined dbdef->table('cust_main')->column('ship_last') ) { %> (service) name company <% } %> <% foreach my $cust_bill_event ( @cust_bill_event ) { my $status = $cust_bill_event->status; $status .= ': '.$cust_bill_event->statustext if $cust_bill_event->statustext; my $cust_bill = $cust_bill_event->cust_bill; my $cust_main = $cust_bill->cust_main; my $invlink = "${p}view/cust_bill.cgi?". $cust_bill->invnum; my $custlink = "${p}view/cust_main.cgi?". $cust_main->custnum; %> <%= $cust_bill_event->part_bill_event->event %> <%= time2str("%a %b %e %T %Y", $cust_bill_event->_date) %> <%= $status %> Invoice #<%= $cust_bill->invnum %> (<%= time2str("%D", $cust_bill->_date ) %>) <%= $cust_main->last. ', '. $cust_main->first %> <%= $cust_main->company %> <% if ( defined dbdef->table('cust_main')->column('ship_last') ) { %> <%= $cust_main->ship_last. ', '. $cust_main->ship_first %> <%= $cust_main->ship_company %> <% } %> <% } %>