<% include('elements/svc_Common.html',
'table' => 'svc_mailinglist',
%opt,
)
%>
<%init>
my %opt = ();
my $info = FS::svc_mailinglist->table_info;
$opt{'name'} = $info->{'name'};
my $fields = $info->{'fields'};
my %labels = map { $_ => ( ref($fields->{$_})
? $fields->{$_}{'label'}
: $fields->{$_}
);
}
keys %$fields;
#$opt{'fields'} = [ keys %$fields ];
$opt{'fields'} = [
'username',
'domain',
'listname',
'reply_to',
'remove_from',
'reject_auto',
'remove_to_and_cc',
];
$opt{'labels'} = \%labels;
$opt{'html_foot'} = sub {
my $svc_mailinglist = shift;
my $listnum = $svc_mailinglist->listnum;
my $sql = 'SELECT COUNT(*) FROM mailinglistmember WHERE listnum = ?';
my $sth = dbh->prepare($sql) or die dbh->errstr;
$sth->execute($listnum) or die $sth->errstr;
my $num = $sth->fetchrow_arrayref->[0];
my $add_url = $p."edit/mailinglistmember.html?listnum=$listnum";
my $add_link = include('/elements/init_overlib.html').
include('/elements/popup_link.html',
'action' => $add_url,
'label' => 'add',
'actionlabel' => 'Add list member',
'width' => 392,
'height' => 192,
);
ntable('#cccccc').'| '.ntable('#cccccc',2). qq[
|
| List members |
$num members
( view
| $add_link )
|
]. include('svc_export_settings.html', $svc_mailinglist);
};