summaryrefslogtreecommitdiff
path: root/FS/FS/h_svc_www.pm
diff options
context:
space:
mode:
Diffstat (limited to 'FS/FS/h_svc_www.pm')
-rw-r--r--FS/FS/h_svc_www.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/FS/FS/h_svc_www.pm b/FS/FS/h_svc_www.pm
index e719f1b47..d3f9811a4 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 },