- 'name' => 'customers',
- 'query' => $sql_query,
- 'count_query' => $count_sql,
- 'header' => [
- FS::UI::Web::cust_header(),
- 'Status', # (me)',
- #'Status', # (cust_main)',
- '0-30',
- '30-60',
- '60-90',
- '90+',
- 'Total',
- ],
- 'footer' => [
- 'Total',
- ( map '',
- ( 1 ..
- scalar(FS::UI::Web::cust_header()-1)
- )
- ),
- '',
- #'',
- sprintf( $money_char.'%.2f',
- $row->{'owed_0_30'} ),
- sprintf( $money_char.'%.2f',
- $row->{'owed_30_60'} ),
- sprintf( $money_char.'%.2f',
- $row->{'owed_60_90'} ),
- sprintf( $money_char.'%.2f',
- $row->{'owed_90_pl'} ),
- sprintf( '<b>'. $money_char.'%.2f'. '</b>',
- $row->{'owed_total'} ),
- ],
- 'fields' => [
- \&FS::UI::Web::cust_fields,
- sub {
- my $row = shift;
- my $status = 'Cancelled';
- my $statuscol = 'FF0000';
- if ( $row->uncancelled_pkgs ) {
- $status = 'Suspended';
- $statuscol = 'FF9900';
- if ( $row->active_pkgs ) {
- $status = 'Active';
- $statuscol = '00CC00';
- }
- }
- $status;
- },
- #sub { ucfirst(shift->status) },
- sub { sprintf( $money_char.'%.2f',
- shift->get('owed_0_30') ) },
- sub { sprintf( $money_char.'%.2f',
- shift->get('owed_30_60') ) },
- sub { sprintf( $money_char.'%.2f',
- shift->get('owed_60_90') ) },
- sub { sprintf( $money_char.'%.2f',
- shift->get('owed_90_pl') ) },
- sub { sprintf( $money_char.'%.2f',
- shift->get('owed_total') ) },
- ],
- 'links' => [
- ( map $clink, FS::UI::Web::cust_header() ),
- '',
- #'',
- '',
- '',
- '',
- '',
- '',
- ],
- #'align' => 'rlccrrrrr',
- 'align' => $align,
- #'size' => [ '', '', '-1', '-1', '', '', '', '', '', ],
- #'style' => [ '', '', 'b', 'b', '', '', '', '', 'b', ],
- 'size' => [ ( map '', FS::UI::Web::cust_header() ),
- '-1', '', '', '', '', '', ],
- 'style' => [ ( map '', FS::UI::Web::cust_header() ),
- 'b', '', '', '', '', 'b', ],
- 'color' => [
- ( map '', FS::UI::Web::cust_header() ),
- sub {
- my $row = shift;
- my $status = 'Cancelled';
- my $statuscol = 'FF0000';
- if ( $row->uncancelled_pkgs ) {
- $status = 'Suspended';
- $statuscol = 'FF9900';
- if ( $row->active_pkgs ) {
- $status = 'Active';
- $statuscol = '00CC00';
- }
- }
- $statuscol;
- },
- #sub { shift->statuscolor; },
- '',
- '',
- '',
- '',
- '',
- ],
-
- )