1 <& /elements/header.html, mt($title) &>
3 <FORM ACTION="contact.html" METHOD="GET">
5 <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
7 %# This has never been actually supported on this report.
8 %# Remove the selectbox until support is implemented
10 %# <& /elements/tr-select-agent.html,
11 %# 'curr_value' => scalar( $cgi->param('agentnum') ),
12 %# 'label' => emt('Contacts for agent: '),
13 %# 'disable_empty' => 0,
16 <& /elements/tr-select.html,
17 'label' => 'Contact source:', #??? not "type" - contacts have a type
19 'options' => [ 'prospect_main', 'cust_main', 'both' ],
20 'labels' => { 'prospect_main' => 'Prospect contacts',
21 'cust_main' => 'Customer contacts',
22 'both' => 'All contacts',
24 'curr_value' => scalar( $cgi->param('link') ),
27 <& /elements/tr-checkbox-multiple.html,
28 label => emt('Destinations').':',
30 options => [ 'message', 'invoice' ],
32 invoice => 'Invoice recipients',
33 message => 'Message recipients',
35 value => { message => 1 },
38 <& /elements/tr-select-multiple-contact_class.html,
39 label => emt('Contact Type').':',
48 <INPUT TYPE="submit" VALUE="<% mt('Get Report') |h %>">
52 <& /elements/footer.html &>
56 unless $FS::CurrentUser::CurrentUser->access_right('List contacts');
58 my $conf = new FS::Conf;
60 my $title = 'Contact Report';