summaryrefslogtreecommitdiff
path: root/FS/FS/h_svc_acct.pm
diff options
context:
space:
mode:
authorJonathan Prykop <jonathan@freeside.biz>2016-07-05 18:35:41 -0500
committerJonathan Prykop <jonathan@freeside.biz>2016-07-07 18:43:41 -0500
commitfba4614e057708bc585b869a517938f29bff25d8 (patch)
tree594d8ed8c3f7aff4142076cbaa025eaa7f013444 /FS/FS/h_svc_acct.pm
parentf23b09e7f67e0975958bdbbf4209f7c9d5cca38e (diff)
RT#17599: display cancelled services from history [bug fixes]
Diffstat (limited to 'FS/FS/h_svc_acct.pm')
-rw-r--r--FS/FS/h_svc_acct.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/FS/FS/h_svc_acct.pm b/FS/FS/h_svc_acct.pm
index 6e127a2..6bc55eb 100644
--- a/FS/FS/h_svc_acct.pm
+++ b/FS/FS/h_svc_acct.pm
@@ -29,6 +29,7 @@ FS::h_svc_acct - Historical account objects
sub svc_domain {
my $self = shift;
local($FS::Record::qsearch_qualify_columns) = 0;
+ $_[0] ||= $self->history_date;
qsearchs( 'h_svc_domain',
{ 'svcnum' => $self->domsvc },
FS::h_svc_domain->sql_h_searchs(@_),