X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fdomain_record.pm;h=e180e4b66d903742eb8b8f4cf691646bd7769234;hp=9f1eb5318820610d01ffbc3599849a9f9b48b37a;hb=a36e0f8a0f69349dafaa16d1d2d57dfb6e5dbc85;hpb=d583a5d3c0647488bac7b7a33d319fd1a85c05b3

diff --git a/FS/FS/domain_record.pm b/FS/FS/domain_record.pm
index 9f1eb5318..e180e4b66 100644
--- a/FS/FS/domain_record.pm
+++ b/FS/FS/domain_record.pm
@@ -1,15 +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( qsearch qsearchs );
-use FS::Record qw( qsearchs dbh );
-use FS::svc_domain;
+use FS::Record qw( qsearchs dbh ); #qsearch
 use FS::svc_www;
 
-@ISA = qw(FS::Record);
-
 $DEBUG = 0;
 $me = '[FS::domain_record]';
 
@@ -371,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.
@@ -440,7 +430,7 @@ sub reverse_record {
 #http://en.wikipedia.org/wiki/List_of_DNS_record_types
 #DHCID?  other things?
 sub rectypes {
-  [ qw(A AAAA CNAME MX NS PTR SPF SRV TXT), #most common types
+  [ qw(SOA A AAAA CNAME MX NS PTR SPF SRV TXT), #most common types
     #qw(DNAME), #uncommon types
     qw(DLV DNSKEY DS NSEC NSEC3 NSEC3PARAM RRSIG), #DNSSEC types
   ];