UI for $24246
[freeside.git] / httemplate / search / report_cdr.html
1 <% include('/elements/header.html', 'Call Detail Record Search' ) %>
2
3 <SCRIPT type="text/javascript">
4     function clearfield(which){
5         var f = document.getElementById(which);
6         if ( f == null) return;
7         f.value = '';
8     }
9 </SCRIPT>
10
11 <FORM ACTION="cdr.html" METHOD="GET">
12
13 <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
14
15   <TR>
16     <TH CLASS="background" COLSPAN=2 ALIGN="left">
17       <FONT SIZE="+1">Search options</FONT>
18     </TH>
19   </TR>
20
21   <TR>
22     <TD ALIGN="right">Status: </TD>
23     <TD>
24       <SELECT NAME="freesidestatus">
25         <OPTION VALUE="">(all)</OPTION>
26         <OPTION VALUE="NULL">unprocessed</OPTION>
27 %# <OPTION VALUE="processing-tiered">processing</OPTION>
28         <OPTION VALUE="rated">prerated
29         <OPTION VALUE="no-charge">processed (included)</OPTION>
30         <OPTION VALUE="done">processed (billed)</OPTION>
31         <OPTION VALUE="skipped">skipped</OPTION>
32         <OPTION VALUE="failed">failed</OPTION>
33       </SELECT>
34     </TD>
35   </TR>
36
37 % #if ( ) {  # disable for everyone not using termination billing...
38 %   foreach my $termpart ( 1..1 ) { #qsearch('part_termination
39
40     <TR>
41       <TD ALIGN="right">Termination Status: </TD>
42       <TD>
43         <SELECT NAME="termpart<%$termpart%>status">
44           <OPTION VALUE="">(all)
45           <OPTION VALUE="NULL">unprocessed
46           <OPTION VALUE="done">processed
47         </SELECT>
48       </TD>
49     </TR>
50
51 %   }
52 % #}
53
54   <% include('/elements/tr-select-table.html',
55             field   => 'cdrtypenum',
56             label   => 'CDR Type',
57             table   => 'cdr_type',
58             name_col    => 'cdrtypename',
59             disable_empty   => 1,
60             pre_options => [    '',     'all', 
61                                 'none', 'none' ] )
62   %>
63
64   <% include ( '/elements/tr-input-beginning_ending.html' ) %>
65
66   <TR>
67     <TD ALIGN="right">Source #: </TD>
68     <TD>
69       <INPUT TYPE="text" NAME="src">
70     </TD>
71   </TR>
72
73   <TR>
74     <TD ALIGN="right">Destination #: </TD>
75     <TD>
76       <INPUT TYPE="text" NAME="dst">
77     </TD>
78   </TR>
79
80   <TR>
81     <TD ALIGN="right">Destination Context: </TD>
82     <TD>
83       <INPUT TYPE="text" NAME="dcontext">
84     </TD>
85   </TR>
86
87
88   <TR>
89     <TD ALIGN="right">Charged Party #: </TD>
90     <TD>
91       <INPUT TYPE="text" NAME="charged_party" VALUE="<% join(',', @charged_party) |h %>">
92     </TD>
93   </TR>
94
95   <TR>
96     <TD ALIGN="right">Charged Party or Source #: </TD>
97     <TD>
98       <INPUT TYPE="text" NAME="charged_party_or_src" VALUE="<% join(',', @charged_party_or_src ) |h %>" >
99     </TD>
100   </TR>
101
102   <TR>
103     <TD ALIGN="right">Last Application: </TD>
104     <TD>
105       <INPUT TYPE="text" NAME="lastapp" VALUE="" >
106     </TD>
107   </TR>
108
109   <TR>
110     <TD ALIGN="right">Freeside service #: </TD>
111     <TD>
112       <INPUT TYPE="text" NAME="svcnum" VALUE="<% join(',', @svcnum ) %>" >
113     </TD>
114   </TR>
115
116   <% include( '/elements/tr-input-lessthan_greaterthan.html',
117                 'label' => 'Duration (sec)',
118                 'field' => 'duration',
119             )
120   %>
121
122   <% include( '/elements/tr-input-lessthan_greaterthan.html',
123                 'label' => 'Billable duration (sec)',
124                 'field' => 'billsec',
125             )
126   %>
127
128   <TR>
129     <TD ALIGN="right">Top</TD>
130     <TD><INPUT TYPE="TEXT" id="top_dst" NAME="top_dst" SIZE="7" onfocus="clearfield('top_src');"> destinations</TD>
131   </TR>
132   
133   <TR>
134     <TD ALIGN="right">Top</TD>
135     <TD><INPUT TYPE="TEXT" id="top_src" NAME="top_src" SIZE="7" onfocus="clearfield('top_dst');"> sources</TD>
136   </TR>
137   
138   <TR>
139     <TD ALIGN="right"></TD>
140     <TD><INPUT TYPE="TEXT" NAME="longest" SIZE="7"> longest calls</TD>
141   </TR>
142   
143   <% include( '/elements/tr-select-cdrbatch.html' ) %>
144
145   <TR>
146     <TD ALIGN="right">Acct ID (one per-line):</TD>
147     <TD><TEXTAREA NAME="acctid"></TEXTAREA></TD>
148   </TR>
149
150   <TR>
151     <TH CLASS="background" COLSPAN=2>&nbsp;</TH>
152   </TR>
153
154   <TR>
155     <TH CLASS="background" COLSPAN=2 ALIGN="left"><FONT SIZE="+1">Display options</FONT></TH>
156   </TR>
157
158   <INPUT TYPE="hidden" NAME="show" VALUE="1">
159
160   <TR>
161     <TD COLSPAN=2>
162       <% include('/elements/checkboxes.html',
163                    'names_list'          => $names_list,
164                    'element_name_prefix' => 'show_',
165                    'checked_callback'    => sub { $show_default{$_[1]} },
166                                                   # my($cgi, $name) = @_;
167                 )
168       %>
169     </TD>
170   </TR>
171
172 </TABLE>
173
174 <BR>
175 <INPUT TYPE="submit" VALUE="Search Call Detail Records">
176
177 </FORM>
178
179 <% include('/elements/footer.html') %>
180 <%init>
181
182 die "access denied"
183   unless $FS::CurrentUser::CurrentUser->access_right('List rating data');
184
185 my @fields = fields('cdr');
186 my $labels = FS::cdr->table_info->{'fields'};
187
188 #XXX config
189 my @show_default = qw(
190   calldate clid src dst dcontext charged_party
191   startdate answerdate enddate duration billsec
192   disposition amaflags accountcode userfield
193   rated_price upstream_price carrierid 
194   svcnum freesidestatus freesiderewritestatus
195 );
196 my %show_default = map { $_=>1 } @show_default;
197
198 my $names_list = [ map {
199                          [ $_ => {
200                                    'label' => 'Show '. ( $labels->{$_} || $_ )
201                                  }
202                          ]
203                        } 
204                    @fields
205                  ];
206
207 my @charged_party = ();
208 my @charged_party_or_src = ();
209 my @svcnum = ();
210 if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
211   my $custnum = $1;
212
213   my $cust_main = qsearchs( {
214     'table'     => 'cust_main',
215     'hashref'   => { 'custnum' => $custnum },
216     'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
217   });
218   die "Customer not found!" unless $cust_main;
219
220   #historical?
221   foreach my $cust_pkg ( $cust_main->ncancelled_pkgs ) {
222
223     my @voip_pkgs =
224       grep { $_->plan eq 'voip_cdr' } $cust_pkg->part_pkg->self_and_bill_linked;
225     if ( scalar(@voip_pkgs) > 1 ) { 
226       die "multiple voip_cdr packages bundled\n";
227     } elsif ( !@voip_pkgs ) {
228       next;
229     }
230     my $voip_pkg = @voip_pkgs[0];
231
232     my $cdr_svc_method = $voip_pkg->option('cdr_svc_method')
233                          || 'svc_phone.phonenum';
234
235     my @cust_svc = $cust_pkg->cust_svc; #historical?
236
237     if ( $cdr_svc_method eq 'svc_phone.phonenum' ) {
238
239       my @svc_phone = map $_->svc_x,
240                         grep { $_->part_svc->svcdb eq 'svc_phone' } @cust_svc;
241
242       my @numbers = map {
243                           my $number = $_->phonenum;
244                           $number = $_->countrycode. $number
245                             unless $_->countrycode eq '1';
246                           $number;
247                         }
248                       @svc_phone;
249
250       if ( $voip_pkg->option('disable_src') ) {
251         push @charged_party, @numbers;
252       } else {
253         push @charged_party_or_src, @numbers;
254       }
255
256     } elsif ( $cdr_svc_method eq 'svc_pbx.title' ) {
257       my @svc_pbx = map $_->svc_x,
258                       grep { $_->part_svc->svcdb eq 'svc_pbx' } @cust_svc;
259       push @charged_party, map $_->title, @svc_pbx;
260     } elsif ( $cdr_svc_method eq 'svc_pbx.svcnum' ) {
261       my @cust_svc_pbx = grep { $_->part_svc->svcdb eq 'svc_pbx' } @cust_svc;
262       push @svcnum, map $_->svcnum, @cust_svc_pbx;
263     }
264
265   }
266
267   die "No CDR packages for customer $custnum\n"
268     unless @charged_party || @charged_party_or_src || @svcnum;
269
270   #die "Multiple matching metods for customer $custnum\n"
271   #  if #there's more than one
272
273 }
274
275 </%init>