autoload methods returning foreign records, RT#13971

1 files changed, 2 insertions, 11 deletions

diff --git a/FS/FS/domain_record.pm b/FS/FS/domain_record.pm
index cd881ae..e180e4b 100644
--- a/FS/FS/domain_record.pm
+++ b/FS/FS/domain_record.pm
@@ -1,14 +1,12 @@
 package FS::domain_record;
+use base qw(FS::Record);
 
 use strict;
-use vars qw( @ISA $noserial_hack $DEBUG $me );
+use vars qw( $noserial_hack $DEBUG $me );
 use FS::Conf;
 use FS::Record qw( qsearchs dbh ); #qsearch
-use FS::svc_domain;
 use FS::svc_www;
 
-@ISA = qw(FS::Record);
-
 $DEBUG = 0;
 $me = '[FS::domain_record]';
 
@@ -370,13 +368,6 @@ sub increment_serial {
 
 Returns the domain (see L<FS::svc_domain>) for this record.
 
-=cut
-
-sub svc_domain {
-  my $self = shift;
-  qsearchs('svc_domain', { svcnum => $self->svcnum } );
-}
-
 =item zone
 
 Returns the canonical zone name.