diff options
| -rwxr-xr-x | httemplate/search/cust_pkg.cgi | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/httemplate/search/cust_pkg.cgi b/httemplate/search/cust_pkg.cgi index 5c209eba7..b354bc133 100755 --- a/httemplate/search/cust_pkg.cgi +++ b/httemplate/search/cust_pkg.cgi @@ -16,6 +16,7 @@ 'Susp.', 'Expire', 'Cancel', + 'Reason', FS::UI::Web::cust_header( $cgi->param('cust_fields') ), @@ -46,6 +47,17 @@ ( map { time_or_blank($_) } qw( setup last_bill bill adjourn susp expire cancel ) ), + sub { my $self = shift; + my $return = ''; + if ($self->getfield('cancel') || + $self->getfield('suspend')) { + my $reason = $self->last_reason;# too inefficient? + $return = $reason->reason if $reason; + + } + $return; + }, + \&FS::UI::Web::cust_fields, #sub { '<table border=0 cellspacing=0 cellpadding=0 STYLE="border:none">'. # join('', map { '<tr><td align="right" style="border:none">'. $_->[0]. |