projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e8a09e9
)
add suspend/cancel reason to advanced package report (#2779)
author
jeff
<jeff>
Tue, 4 Dec 2007 18:35:55 +0000
(18:35 +0000)
committer
jeff
<jeff>
Tue, 4 Dec 2007 18:35:55 +0000
(18:35 +0000)
httemplate/search/cust_pkg.cgi
patch
|
blob
|
history
diff --git
a/httemplate/search/cust_pkg.cgi
b/httemplate/search/cust_pkg.cgi
index
5c209eb
..
b354bc1
100755
(executable)
--- a/
httemplate/search/cust_pkg.cgi
+++ b/
httemplate/search/cust_pkg.cgi
@@
-16,6
+16,7
@@
'Susp.',
'Expire',
'Cancel',
'Susp.',
'Expire',
'Cancel',
+ 'Reason',
FS::UI::Web::cust_header(
$cgi->param('cust_fields')
),
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 ) ),
( 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].
\&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].