X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fh_svc_forward.pm;h=bc24fe911450e40d01e800b97bbe40aa66ad7623;hp=25b203904a7fc6a09563bcc0cac7292d49d49cca;hb=ff27c3f36240aee48ed50153dd5d8fe3ac3f2443;hpb=624b2d44625f69d71175c3348cae635d580c890b

diff --git a/FS/FS/h_svc_forward.pm b/FS/FS/h_svc_forward.pm
index 25b203904..bc24fe911 100644
--- a/FS/FS/h_svc_forward.pm
+++ b/FS/FS/h_svc_forward.pm
@@ -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 },