start svc_alarm, RT#23694

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

diff --git a/FS/FS/svc_mailinglist.pm b/FS/FS/svc_mailinglist.pm
index 9c1a09d..8cab398 100644 (file)
--- a/FS/FS/svc_mailinglist.pm
+++ b/FS/FS/svc_mailinglist.pm
@@ -2,6 +2,7 @@ package FS::svc_mailinglist;
 
 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::mailinglist;
@@ -87,7 +88,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',
@@ -160,7 +161,6 @@ sub insert {
       $dbh->rollback if $oldAutoCommit;
       return $error;
     }
-    warn $mailinglist->listnum;
     $self->listnum($mailinglist->listnum);
   #}