X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fh_svc_www.pm;h=20002214bd84ddee3cc585c322f09d667b7f8dd3;hb=e91e8093159d6e309ffa47d3694faca068d7daa4;hp=7931061f9c358505c3fc5af4aed94374987f4f13;hpb=29c80b06fd677d43ff94d4503bb577107c71882e;p=freeside.git

diff --git a/FS/FS/h_svc_www.pm b/FS/FS/h_svc_www.pm
index 7931061f9..20002214b 100644
--- a/FS/FS/h_svc_www.pm
+++ b/FS/FS/h_svc_www.pm
@@ -33,6 +33,7 @@ sub domain_record {
 
   carp 'Called FS::h_svc_www->domain_record on svcnum ' . $self->svcnum if $DEBUG;
 
+  $_[0] ||= $self->history_date;
   my $domain_record = qsearchs(
     'h_domain_record',
     { 'recnum' => $self->recnum },
@@ -40,7 +41,7 @@ sub domain_record {
   ) || $self->SUPER::domain_record
     or die "no history domain_record.recnum for svc_www.recnum ". $self->domsvc;
 
-  carp 'Using FS::svc_acct record in place of missing FS::h_svc_acct record.'
+  carp 'Using domain_record in place of missing h_domain_record record.'
     if ($domain_record->isa('FS::domain_record') and $DEBUG);
 
   return $domain_record;