summaryrefslogtreecommitdiff
path: root/FS/FS/cust_main.pm
diff options
context:
space:
mode:
authorJonathan Prykop <jonathan@freeside.biz>2016-06-27 22:40:44 -0500
committerJonathan Prykop <jonathan@freeside.biz>2016-06-28 06:49:54 -0500
commitfc9879b7cb4b1f0b4fefe850e2901e3f9a74f63b (patch)
tree2f19a4b446dc589fc6f5a13c2030a38a3d0bf88a /FS/FS/cust_main.pm
parent2164bf38a61edc4fd84240214a41549847751e40 (diff)
RT#15006: Bug? Cancelled customers shown in reports?
Diffstat (limited to 'FS/FS/cust_main.pm')
-rw-r--r--FS/FS/cust_main.pm13
1 files changed, 4 insertions, 9 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 8e96b42..6c43747 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -4997,15 +4997,10 @@ Returns an SQL expression identifying un-cancelled cust_main records.
=cut
sub uncancelled_sql { uncancel_sql(@_); }
-sub uncancel_sql { "
- ( 0 < ( $select_count_pkgs
- AND ( cust_pkg.cancel IS NULL
- OR cust_pkg.cancel = 0
- )
- )
- OR 0 = ( $select_count_pkgs )
- )
-"; }
+sub uncancel_sql {
+ my $self = shift;
+ "( NOT (".$self->cancelled_sql.") )"; #sensitive to cust_main-status_module
+}
=item balance_sql