summaryrefslogtreecommitdiff
path: root/FS/FS/h_svc_forward.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-05 18:35:41 -0500
commit7d38afc8a7175c836721400f3b08f84f1c20ea4f (patch)
treea3ebd4040a4276ea3c0231c14a1c8810f3779e42 /FS/FS/h_svc_forward.pm
parent3531bdf7f4843562539228d8c973bf649f4819c8 (diff)
RT#17599: display cancelled services from history [bug fixes]
Diffstat (limited to 'FS/FS/h_svc_forward.pm')
-rw-r--r--FS/FS/h_svc_forward.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/FS/FS/h_svc_forward.pm b/FS/FS/h_svc_forward.pm
index 7f6a5cc..bc24fe9 100644
--- a/FS/FS/h_svc_forward.pm
+++ b/FS/FS/h_svc_forward.pm
@@ -35,6 +35,7 @@ sub srcsvc_acct {
local($FS::Record::qsearch_qualify_columns) = 0;
+ $_[0] ||= $self->history_date;
my $h_svc_acct = qsearchs(
'h_svc_acct',
{ 'svcnum' => $self->srcsvc },
@@ -58,6 +59,7 @@ sub dstsvc_acct {
local($FS::Record::qsearch_qualify_columns) = 0;
+ $_[0] ||= $self->history_date;
my $h_svc_acct = qsearchs(
'h_svc_acct',
{ 'svcnum' => $self->dstsvc },