X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fh_svc_www.pm;h=d3f9811a4d5e117e4ce472ed8c1b987dbd79f4d1;hp=f2f8af820dbd31908b85f47dda7f239ea5cae250;hb=bb7e827141c9ed68f30765c9ca2ddcd1d760ad2d;hpb=f7afca1829f8496509d10806439c37fcc1349135

diff --git a/FS/FS/h_svc_www.pm b/FS/FS/h_svc_www.pm
index f2f8af820..d3f9811a4 100644
--- a/FS/FS/h_svc_www.pm
+++ b/FS/FS/h_svc_www.pm
@@ -1,14 +1,17 @@
 package FS::h_svc_www;
 
 use strict;
-use vars qw( @ISA );
-se FS::Record qw(qsearchs);
+use vars qw( @ISA $DEBUG );
+use Carp qw(carp);
+use FS::Record qw(qsearchs);
 use FS::h_Common;
 use FS::svc_www;
 use FS::h_domain_record;
 
 @ISA = qw( FS::h_Common FS::svc_www );
 
+$DEBUG = 0;
+
 sub table { 'h_svc_www' };
 
 =head1 NAME
@@ -27,10 +30,23 @@ FS::h_svc_www - Historical web virtual host objects
 
 sub domain_record {
   my $self = shift;
-  qsearchs( 'h_domain_record',
-            { 'recnum' => $self->recnum },
-            FS::h_domain_record->sql_h_search(@_),
-          );
+
+  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 },
+    FS::h_domain_record->sql_h_searchs(@_),
+  ) || $self->SUPER::domain_record
+    or die "no history domain_record.recnum for svc_www.recnum ". $self->domsvc;
+
+  carp 'Using domain_record in place of missing h_domain_record record.'
+    if ($domain_record->isa('FS::domain_record') and $DEBUG);
+
+  return $domain_record;
+  
 }
 
 =back