diff options
| author | ivan <ivan> | 2007-09-13 22:05:31 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-09-13 22:05:31 +0000 |
| commit | 8c6fd22a03670e119d08b87731da3959f8fd07c5 (patch) | |
| tree | 7612b53b4ee0fe8d0b9efbcb0f3b42ee26942ba6 | |
| parent | 21580f2f855927834fb9911c432ff1749ac3c99b (diff) | |
clean up some unused code
| -rwxr-xr-x | httemplate/search/report_receivables.cgi | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/httemplate/search/report_receivables.cgi b/httemplate/search/report_receivables.cgi index 6e5893870..425fa2b89 100755 --- a/httemplate/search/report_receivables.cgi +++ b/httemplate/search/report_receivables.cgi @@ -5,8 +5,6 @@ 'count_query' => $count_sql, 'header' => [ FS::UI::Web::cust_header(), - #'Status', # (me)', - #'Status', # (cust_main)', '0-30', '30-60', '60-90', @@ -20,8 +18,6 @@ scalar(FS::UI::Web::cust_header()-1) ) ), - #'', - #'', sprintf( $money_char.'%.2f', $row->{'owed_0_30'} ), sprintf( $money_char.'%.2f', @@ -35,8 +31,6 @@ ], 'fields' => [ \&FS::UI::Web::cust_fields, - #sub { ( &{$status_statuscol}(shift) )[0] }, - #sub { ucfirst(shift->status) }, sub { sprintf( $money_char.'%.2f', shift->get('owed_0_30') ) }, sub { sprintf( $money_char.'%.2f', @@ -52,8 +46,6 @@ ( map { $_ ne 'Cust. Status' ? $clink : '' } FS::UI::Web::cust_header() ), - #'', - #'', '', '', '', @@ -72,8 +64,6 @@ '', '', '', '', 'b', ], 'color' => [ FS::UI::Web::cust_colors(), - #sub { ( &{$status_statuscol}(shift) )[1] }, - #sub { shift->statuscolor; }, '', '', '', @@ -206,24 +196,4 @@ my $money_char = $conf->config('money_char') || '$'; my $clink = [ "${p}view/cust_main.cgi?", 'custnum' ]; -my $status_statuscol = sub { - #conceptual false laziness with cust_main::status... - my $row = shift; - - my $status = 'unknown'; - if ( $row->num_pkgs_sql == 0 ) { - $status = 'prospect'; - } elsif ( $row->active_pkgs > 0 ) { - $status = 'active'; - } elsif ( $row->inactive_pkgs > 0 ) { - $status = 'inactive'; - } elsif ( $row->suspended_pkgs > 0 ) { - $status = 'suspended'; - } elsif ( $row->cancelled_pkgs > 0 ) { - $status = 'cancelled' - } - - ( ucfirst($status), $FS::cust_main::statuscolor{$status} ); -}; - </%init> |