X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fsearch%2Freport_cdr.html;h=4c16f74c01b10fe4dc44d33df09e44f7cc7ef1b4;hp=866606cc1fdbcd26ecb44dedf8558963ea839f46;hb=1fc8addc56f8daf12397da568eb1ac1b27fd3984;hpb=0fb307c305e4bc2c9c27dc25a3308beae3a4d33c diff --git a/httemplate/search/report_cdr.html b/httemplate/search/report_cdr.html index 866606cc1..4c16f74c0 100644 --- a/httemplate/search/report_cdr.html +++ b/httemplate/search/report_cdr.html @@ -1,5 +1,13 @@ <% include('/elements/header.html', 'Call Detail Record Search' ) %> + +
@@ -14,9 +22,14 @@ @@ -38,6 +51,16 @@ % } % #} + <% include('/elements/tr-select-table.html', + field => 'cdrtypenum', + label => 'CDR Type', + table => 'cdr_type', + name_col => 'cdrtypename', + disable_empty => 1, + pre_options => [ '', 'all', + 'none', 'none' ] ) + %> + <% include ( '/elements/tr-input-beginning_ending.html' ) %> @@ -77,6 +100,13 @@ + + + + + + + + + + + + + + + + + + + <% include( '/elements/tr-select-cdrbatch.html' ) %> @@ -103,6 +148,11 @@ + + + + + @@ -138,7 +188,21 @@ die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); my @fields = fields('cdr'); +push @fields, 'ratename'; +push @fields, map "cdr_termination.$_", qw( rated_price rated_seconds rated_minutes rated_granularity status svcnum ); + my $labels = FS::cdr->table_info->{'fields'}; +$labels->{ratename} = 'Rate plan'; +$labels->{'cdr_termination.rated_price'} = 'Termination rated price'; +$labels->{'cdr_termination.rated_seconds'} = 'Termination rated seconds'; +$labels->{'cdr_termination.rated_minutes'} = 'Termination rated minutes'; +$labels->{'cdr_termination.rated_granularity'} = 'Termination rated granularity'; +$labels->{'cdr_termination.status'} = 'Termination status'; +$labels->{'cdr_termination.svcnum'} = 'Termination service'; + +my $conf = new FS::Conf; +my $default_phone_countrycode = + $conf->config('default_phone_countrycode') || '1'; #XXX config my @show_default = qw( @@ -172,7 +236,7 @@ if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { }); die "Customer not found!" unless $cust_main; - #historical? + #historical packages? It would help, it was still usage, it happened foreach my $cust_pkg ( $cust_main->ncancelled_pkgs ) { my @voip_pkgs = @@ -197,7 +261,7 @@ if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { my @numbers = map { my $number = $_->phonenum; $number = $_->countrycode. $number - unless $_->countrycode eq '1'; + unless $_->countrycode eq $default_phone_countrycode; $number; } @svc_phone;
Status:
Last Application: + +
Freeside service #: @@ -95,6 +125,21 @@ ) %> +
Top destinations
Top sources
longest calls
Acct Code (one per-line):