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;
sub table_info {
{
'name' => 'Mailing list',
- 'display_weight' => 80,
+ 'display_weight' => 31,
'cancel_weight' => 55,
'fields' => {
'username' => { 'label' => 'List address',
$dbh->rollback if $oldAutoCommit;
return $error;
}
- warn $mailinglist->listnum;
$self->listnum($mailinglist->listnum);
#}