X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fh_svc_www.pm;h=d3f9811a4d5e117e4ce472ed8c1b987dbd79f4d1;hb=6a509099343ed155525c4304f1ad742cc6e4ce59;hp=e719f1b474d658b7c2a3b1ea48a0bf8a359f910a;hpb=844cadb72e5e37ba0c78ffc8b6f2eded669b2226;p=freeside.git 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 },