autoload methods returning foreign records, RT#13971

1 files changed, 2 insertions, 10 deletions

diff --git a/FS/FS/svc_www.pm b/FS/FS/svc_www.pm
index 19f2700..ed079f8 100644
--- a/FS/FS/svc_www.pm
+++ b/FS/FS/svc_www.pm
@@ -1,7 +1,8 @@
 package FS::svc_www;
+use base qw(FS::svc_Common);
 
 use strict;
-use vars qw(@ISA $conf $apacheip);
+use vars qw($conf $apacheip);
 #use FS::Record qw( qsearch qsearchs );
 use FS::Record qw( qsearchs dbh );
 use FS::svc_Common;
@@ -10,8 +11,6 @@ use FS::domain_record;
 use FS::svc_acct;
 use FS::svc_domain;
 
-@ISA = qw( FS::svc_Common );
-
 #ask FS::UID to run this stuff for us later
 $FS::UID::callback{'FS::svc_www'} = sub { 
   $conf = new FS::Conf;
@@ -252,13 +251,6 @@ sub check {
 Returns the FS::domain_record record for this web virtual host's zone (see
 L<FS::domain_record>).
 
-=cut
-
-sub domain_record {
-  my $self = shift;
-  qsearchs('domain_record', { 'recnum' => $self->recnum } );
-}
-
 =item svc_acct
 
 Returns the FS::svc_acct record for this web virtual host's owner (see