summaryrefslogtreecommitdiff
path: root/httemplate/search/report_contact.html
blob: 3bccaa1050e659df8d7194ab62c777534ec33e1a (plain)
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
<& /elements/header.html, mt('Contact Report') &>

<FORM ACTION="contact.html" METHOD="GET">

<TABLE BGCOLOR="#cccccc" CELLSPACING=0>

  <& /elements/tr-select-agent.html,
                 'curr_value'    => scalar( $cgi->param('agentnum') ),
                 'label'         => emt('Contacts for agent: '),
                 'disable_empty' => 0,
  &>

  <& /elements/tr-select.html,
       'label'      => 'Contact source',
       'field'      => 'contact_source',
       'options'    => [ 'prospect_main', 'cust_main', '' ],
       'labels'     => { 'prospect_main' => 'Prospect contacts',
                         'cust_main'     => 'Customer contacts',
                         ''              => 'All contacts',
                       },
       'curr_value' => scalar( $cgi->param('contact_source') ),
  &>

% if ( FS::contact_class->count( 'disabled IS NULL' ) > 0 ) {
  <& /elements/tr-checkboxes.html,
    label => 'Contact Type',
    names_list => [
      [ 'null' => { label => 'None' } ],
      map {[ $_->classnum => { label => $_->classname } ]}
      qsearch( contact_class => { disabled => { op => '!=', value => 'Y' } })
    ],
    element_name_prefix => 'contact_classnum_',
  &>
% }

</FORM>

</TABLE>

<BR>
<INPUT TYPE="submit" VALUE="<% mt('Get Report') |h %>">

</FORM>

<& /elements/footer.html &>
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('List contacts');

use FS::contact_class;
</%init>