Option to ignore old CDRs, RT#81480
[freeside.git] / httemplate / search / report_rt_transaction.html
1 <% include('/elements/header.html', 'Time worked report criteria' ) %>
2
3 <FORM ACTION="rt_transaction.html" METHOD="GET">
4
5 <TABLE>
6
7   <% include ( '/elements/tr-input-beginning_ending.html' ) %>
8
9   <& /elements/tr-select.html,
10       label       => 'Time category:',
11       field       => 'category',
12       options     => [ '', 'development', 'support' ],
13       option_labels => { '' => 'all' },
14       curr_value  => 'development',
15   &>
16
17   <% include ( '/elements/tr-select-otaker.html' ) %>
18
19   <% include ( '/elements/tr-input-text.html',
20                  'label' => 'Ticket #',
21                  'field' => 'ticketid',
22              )
23   %>
24
25   <TR>
26     <TD ALIGN="right">Account:</TD>
27     <TD>
28       <SELECT NAME="svcnum">
29         <OPTION VALUE="">(all)
30 %       foreach my $svc_acct (@svc_acct) {
31           <OPTION VALUE="<% $svc_acct->svcnum %>"><% $svc_acct->username %></OPTION>
32 %       }
33       </SELECT>
34     </TD>
35   </TR>
36
37 </TABLE>
38
39 <BR>
40 <INPUT TYPE="submit" VALUE="Search">
41
42 </FORM>
43
44 <% include('/elements/footer.html') %>
45 <%init>
46
47 die "access denied"
48   unless $FS::CurrentUser::CurrentUser->access_right('List rating data');
49
50 my $conf = new FS::Conf;
51
52 my @pkgparts = $conf->config('support_packages');
53
54 my @svc_acct = ();
55 if ( @pkgparts ) {
56   @svc_acct = qsearch({
57     'table'     => 'svc_acct',
58     'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '.
59                    ' LEFT JOIN cust_pkg USING ( pkgnum ) ',
60     'extra_sql' => 'WHERE pkgpart IN ('. join(',', @pkgparts). ')',
61     'order_by'  => 'ORDER BY username',
62   });
63 }
64
65 </%init>