1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
<% 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').'<TR><TD>'.ntable('#cccccc',2). qq[
<TR>
<TD>List members</TD>
<TD BGCOLOR="#ffffff">
$num members
( <A HREF="${p}search/mailinglistmember.html?listnum=$listnum">view</A>
| $add_link )
</TD>
</TR>
</TABLE></TD></TR></TABLE>
<BR><BR>
]. include('svc_export_settings.html', $svc_mailinglist);
};
</%init>
|
