From fba4614e057708bc585b869a517938f29bff25d8 Mon Sep 17 00:00:00 2001
From: Jonathan Prykop <jonathan@freeside.biz>
Date: Tue, 5 Jul 2016 18:35:41 -0500
Subject: RT#17599: display cancelled services from history [bug fixes]

---
 FS/FS/h_svc_www.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'FS/FS/h_svc_www.pm')

diff --git a/FS/FS/h_svc_www.pm b/FS/FS/h_svc_www.pm
index e719f1b..d3f9811 100644
--- a/FS/FS/h_svc_www.pm
+++ b/FS/FS/h_svc_www.pm
@@ -34,6 +34,7 @@ sub domain_record {
   carp 'Called FS::h_svc_www->domain_record on svcnum ' . $self->svcnum if $DEBUG;
 
   local($FS::Record::qsearch_qualify_columns) = 0;
+  $_[0] ||= $self->history_date;
   my $domain_record = qsearchs(
     'h_domain_record',
     { 'recnum' => $self->recnum },
-- 
cgit v1.1