diff options
| author | jeff <jeff> | 2007-12-04 18:35:26 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-12-04 18:35:26 +0000 |
| commit | 6dca1774038ec543b206ed4f5340d9e83e7026d0 (patch) | |
| tree | 22ef7da599bf072aeda7b62b0d30a7bb5fa213cb | |
| parent | fa9dcc2a01538fd4171efb07ab4b73076106d496 (diff) | |
add suspend/cancel reason to advanced package report (#2779)
| -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 941a2e76c..2a6f1e8e9 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]. |