path: root/httemplate/search/report_cdr.html

<% include('/elements/header.html', 'Call Detail Record Search' ) %>

<SCRIPT type="text/javascript">
    function clearfield(which){
        var f = document.getElementById(which);
        if ( f == null) return;
        f.value = '';
    }
</SCRIPT>

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

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

  <TR>
    <TH CLASS="background" COLSPAN=2 ALIGN="left">
      <FONT SIZE="+1">Search options</FONT>
    </TH>
  </TR>

  <TR>
    <TD ALIGN="right">Status: </TD>
    <TD>
      <SELECT NAME="freesidestatus">
        <OPTION VALUE="">(all)</OPTION>
        <OPTION VALUE="NULL">unprocessed</OPTION>
%# <OPTION VALUE="processing-tiered">processing</OPTION>
        <OPTION VALUE="rated">prerated
        <OPTION VALUE="no-charge">processed (included)</OPTION>
        <OPTION VALUE="done">processed (billed)</OPTION>
        <OPTION VALUE="skipped">skipped</OPTION>
        <OPTION VALUE="failed">failed</OPTION>
      </SELECT>
    </TD>
  </TR>

% #if ( ) {  # disable for everyone not using termination billing...
%   foreach my $termpart ( 1..1 ) { #qsearch('part_termination

    <TR>
      <TD ALIGN="right">Termination Status: </TD>
      <TD>
        <SELECT NAME="termpart<%$termpart%>status">
          <OPTION VALUE="">(all)
          <OPTION VALUE="NULL">unprocessed
          <OPTION VALUE="done">processed
        </SELECT>
      </TD>
    </TR>

%   }
% #}

  <% 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' ) %>

  <TR>
    <TD ALIGN="right">Source #: </TD>
    <TD>
      <INPUT TYPE="text" NAME="src">
    </TD>
  </TR>

  <TR>
    <TD ALIGN="right">Destination #: </TD>
    <TD>
      <INPUT TYPE="text" NAME="dst">
    </TD>
  </TR>

  <TR>
    <TD ALIGN="right">Destination Context: </TD>
    <TD>
      <INPUT TYPE="text" NAME="dcontext">
    </TD>
  </TR>


  <TR>
    <TD ALIGN="right">Charged Party #: </TD>
    <TD>
      <INPUT TYPE="text" NAME="charged_party" VALUE="<% join(',', @charged_party) |h %>">
    </TD>
  </TR>

  <TR>
    <TD ALIGN="right">Charged Party or Source #: </TD>
    <TD>
      <INPUT TYPE="text" NAME="charged_party_or_src" VALUE="<% join(',', @charged_party_or_src ) |h %>" >
    </TD>
  </TR>

  <TR>
    <TD ALIGN="right">Last Application: </TD>
    <TD>
      <INPUT TYPE="text" NAME="lastapp" VALUE="" >
    </TD>
  </TR>

  <TR>
    <TD ALIGN="right">Freeside service #: </TD>
    <TD>
      <INPUT TYPE="text" NAME="svcnum" VALUE="<% join(',', @svcnum ) %>" >
    </TD>
  </TR>

  <% include( '/elements/tr-input-lessthan_greaterthan.html',
                'label' => 'Duration (sec)',
                'field' => 'duration',
            )
  %>

  <% include( '/elements/tr-input-lessthan_greaterthan.html',
                'label' => 'Billable duration (sec)',
                'field' => 'billsec',
            )
  %>

  <TR>
    <TD ALIGN="right">Top</TD>
    <TD><INPUT TYPE="TEXT" id="top_dst" NAME="top_dst" SIZE="7" onfocus="clearfield('top_src');"> destinations</TD>
  </TR>
  
  <TR>
    <TD ALIGN="right">Top</TD>
    <TD><INPUT TYPE="TEXT" id="top_src" NAME="top_src" SIZE="7" onfocus="clearfield('top_dst');"> sources</TD>
  </TR>
  
  <TR>
    <TD ALIGN="right"></TD>
    <TD><INPUT TYPE="TEXT" NAME="longest" SIZE="7"> longest calls</TD>
  </TR>
  
  <% include( '/elements/tr-select-cdrbatch.html' ) %>

  <TR>
    <TD ALIGN="right">Acct ID (one per-line):</TD>
    <TD><TEXTAREA NAME="acctid"></TEXTAREA></TD>
  </TR>

  <TR>
    <TD ALIGN="right">Acct Code (one per-line):</TD>
    <TD><TEXTAREA NAME="accountcode"></TEXTAREA></TD>
  </TR>

  <TR>
    <TH CLASS="background" COLSPAN=2>&nbsp;</TH>
  </TR>

  <TR>
    <TH CLASS="background" COLSPAN=2 ALIGN="left"><FONT SIZE="+1">Display options</FONT></TH>
  </TR>

  <INPUT TYPE="hidden" NAME="show" VALUE="1">

  <TR>
    <TD COLSPAN=2>
      <% include('/elements/checkboxes.html',
                   'names_list'          => $names_list,
                   'element_name_prefix' => 'show_',
                   'checked_callback'    => sub { $show_default{$_[1]} },
                                                  # my($cgi, $name) = @_;
                )
      %>
    </TD>
  </TR>

</TABLE>

<BR>
<INPUT TYPE="submit" VALUE="Search Call Detail Records">

</FORM>

<% include('/elements/footer.html') %>
<%init>

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(
  calldate clid src dst dcontext charged_party
  startdate answerdate enddate duration billsec
  disposition amaflags accountcode userfield
  rated_price upstream_price carrierid 
  svcnum freesidestatus freesiderewritestatus
);
my %show_default = map { $_=>1 } @show_default;

my $names_list = [ map {
                         [ $_ => {
                                   'label' => 'Show '. ( $labels->{$_} || $_ )
                                 }
                         ]
                       } 
                   @fields
                 ];

my @charged_party = ();
my @charged_party_or_src = ();
my @svcnum = ();
if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
  my $custnum = $1;

  my $cust_main = qsearchs( {
    'table'     => 'cust_main',
    'hashref'   => { 'custnum' => $custnum },
    'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
  });
  die "Customer not found!" unless $cust_main;

  #historical packages?  It would help, it was still usage, it happened
  foreach my $cust_pkg ( $cust_main->ncancelled_pkgs ) {

    my @voip_pkgs =
      grep { $_->plan eq 'voip_cdr' } $cust_pkg->part_pkg->self_and_bill_linked;
    if ( scalar(@voip_pkgs) > 1 ) { 
      die "multiple voip_cdr packages bundled\n";
    } elsif ( !@voip_pkgs ) {
      next;
    }
    my $voip_pkg = @voip_pkgs[0];

    my $cdr_svc_method = $voip_pkg->option('cdr_svc_method')
                         || 'svc_phone.phonenum';

    my @cust_svc = $cust_pkg->cust_svc; #historical?

    if ( $cdr_svc_method eq 'svc_phone.phonenum' ) {

      my @svc_phone = map $_->svc_x,
                        grep { $_->part_svc->svcdb eq 'svc_phone' } @cust_svc;

      my @numbers = map {
                          my $number = $_->phonenum;
                          $number = $_->countrycode. $number
                           unless $_->countrycode eq $default_phone_countrycode;
                          $number;
                        }
                      @svc_phone;

      if ( $voip_pkg->option('disable_src') ) {
        push @charged_party, @numbers;
      } else {
        push @charged_party_or_src, @numbers;
      }

    } elsif ( $cdr_svc_method eq 'svc_pbx.title' ) {
      my @svc_pbx = map $_->svc_x,
                      grep { $_->part_svc->svcdb eq 'svc_pbx' } @cust_svc;
      push @charged_party, map $_->title, @svc_pbx;
    } elsif ( $cdr_svc_method eq 'svc_pbx.svcnum' ) {
      my @cust_svc_pbx = grep { $_->part_svc->svcdb eq 'svc_pbx' } @cust_svc;
      push @svcnum, map $_->svcnum, @cust_svc_pbx;
    }

  }

  die "No CDR packages for customer $custnum\n"
    unless @charged_party || @charged_party_or_src || @svcnum;

  #die "Multiple matching metods for customer $custnum\n"
  #  if #there's more than one

}

</%init>