X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fh_svc_acct.pm;h=7416054bc2de88c8a775625983c94451c4407820;hb=0b019cbcd4f285cf76a4aa5d7143a4154748ae5f;hp=f525f820695278f863025a80ae948dcfc641362a;hpb=6aa1a0eeb1c28caf6af94a1323f69f3bb4256302;p=freeside.git

diff --git a/FS/FS/h_svc_acct.pm b/FS/FS/h_svc_acct.pm
index f525f8206..7416054bc 100644
--- a/FS/FS/h_svc_acct.pm
+++ b/FS/FS/h_svc_acct.pm
@@ -28,6 +28,7 @@ FS::h_svc_acct - Historical account objects
 
 sub svc_domain {
   my $self = shift;
+  $_[0] ||= $self->history_date;
   qsearchs( 'h_svc_domain',
             { 'svcnum' => $self->domsvc },
             FS::h_svc_domain->sql_h_searchs(@_),