1 <% include('elements/svc_Common.html',
2 'table' => 'svc_mailinglist',
10 my $info = FS::svc_mailinglist->table_info;
12 $opt{'name'} = $info->{'name'};
14 my $fields = $info->{'fields'};
15 my %labels = map { $_ => ( ref($fields->{$_})
16 ? $fields->{$_}{'label'}
22 #$opt{'fields'} = [ keys %$fields ];
33 $opt{'labels'} = \%labels;
35 $opt{'html_foot'} = sub {
36 my $svc_mailinglist = shift;
37 my $listnum = $svc_mailinglist->listnum;
39 my $sql = 'SELECT COUNT(*) FROM mailinglistmember WHERE listnum = ?';
40 my $sth = dbh->prepare($sql) or die dbh->errstr;
41 $sth->execute($listnum) or die $sth->errstr;
42 my $num = $sth->fetchrow_arrayref->[0];
44 my $add_url = $p."edit/mailinglistmember.html?listnum=$listnum";
46 my $add_link = include('/elements/init_overlib.html').
47 include('/elements/popup_link.html',
50 'actionlabel' => 'Add list member',
55 ntable('#cccccc').'<TR><TD>'.ntable('#cccccc',2). qq[
58 <TD BGCOLOR="#ffffff">
60 ( <A HREF="${p}search/mailinglistmember.html?listnum=$listnum">view</A>
64 </TABLE></TD></TR></TABLE>
67 ]. include('svc_export_settings.html', $svc_mailinglist);