eliminate some false laziness in FS::Misc::send_email vs. msg_template/email.pm send_...

[freeside.git] / FS / FS / svc_mailinglist.pm

diff --git a/FS/FS/svc_mailinglist.pm b/FS/FS/svc_mailinglist.pm
index ba297ee..e0ff7fb 100644 (file)
--- a/FS/FS/svc_mailinglist.pm
+++ b/FS/FS/svc_mailinglist.pm
@@ -1,10 +1,9 @@
 package FS::svc_mailinglist;
+use base qw( FS::svc_Domain_Mixin FS::svc_Common );
 
 use strict;
-use base qw( FS::svc_Domain_Mixin FS::svc_Common );
 use Scalar::Util qw( blessed );
-use FS::Record qw( qsearchs dbh ); # qsearch );
-use FS::svc_domain;
+use FS::Record qw( dbh ); # qsearch qsearchs dbh );
 use FS::mailinglist;
 
 =head1 NAME
@@ -88,7 +87,7 @@ sub table { 'svc_mailinglist'; }
 sub table_info {
   {
     'name' => 'Mailing list',
-    'display_weight' => 80,
+    'display_weight' => 31,
     'cancel_weight'  => 55,
     'fields' => {
       'username' => { 'label' => 'List address',
@@ -290,13 +289,6 @@ sub check {
 
 =item mailinglist
 
-=cut
-
-sub mailinglist {
-  my $self = shift;
-  qsearchs('mailinglist', { 'listnum' => $self->listnum } );
-}
-
 =item listname
 
 =cut