X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fh_svc_forward.pm;h=bc24fe911450e40d01e800b97bbe40aa66ad7623;hb=09af85fc0e7a48392c930c9672a99448cf9630d4;hp=92b2e5d7b6bcb3aa1c8c59fcbc6710625d5eb76b;hpb=60e238561db85ef177934640caab3c02694afb3f;p=freeside.git

diff --git a/FS/FS/h_svc_forward.pm b/FS/FS/h_svc_forward.pm
index 92b2e5d7b..bc24fe911 100644
--- a/FS/FS/h_svc_forward.pm
+++ b/FS/FS/h_svc_forward.pm
@@ -10,7 +10,7 @@ use FS::h_svc_acct;
 
 use Carp qw(carp);
 
-$DEBUG = 1;
+$DEBUG = 0;
 
 @ISA = qw( FS::h_Common FS::svc_forward );
 
@@ -32,6 +32,10 @@ FS::h_svc_forward - Historical mail forwarding alias objects
 
 sub srcsvc_acct {
   my $self = shift;
+
+  local($FS::Record::qsearch_qualify_columns) = 0;
+
+  $_[0] ||= $self->history_date;
   my $h_svc_acct = qsearchs(
     'h_svc_acct',
     { 'svcnum' => $self->srcsvc },
@@ -52,6 +56,10 @@ sub srcsvc_acct {
 
 sub dstsvc_acct {
   my $self = shift;
+
+  local($FS::Record::qsearch_qualify_columns) = 0;
+
+  $_[0] ||= $self->history_date;
   my $h_svc_acct = qsearchs(
     'h_svc_acct',
     { 'svcnum' => $self->dstsvc },