|
|
|
|
@ -297,7 +297,15 @@ sub get_contract_calls_rs{
|
|
|
|
|
$stime ||= NGCP::Panel::Utils::DateTime::current_local()->truncate( to => 'month' );
|
|
|
|
|
$etime ||= $stime->clone->add( months => 1 );
|
|
|
|
|
|
|
|
|
|
my $calls_rs = NGCP::Panel::Utils::CallList::call_list_suppressions_rs($c,$c->model('DB')->resultset('cdr')->search_rs( {
|
|
|
|
|
my @cols = ();
|
|
|
|
|
push(@cols,qw/source_user source_domain source_cli destination_user_in/);
|
|
|
|
|
#push(@cols,NGCP::Panel::Utils::CallList::get_suppression_id_colnames());
|
|
|
|
|
push(@cols,qw/start_time duration call_type source_customer_cost/);
|
|
|
|
|
my @colnames = @cols;
|
|
|
|
|
push(@cols,qw/source_customer_billing_zones_history.zone source_customer_billing_zones_history.detail/);
|
|
|
|
|
push(@colnames,qw/zone zone_detail/);
|
|
|
|
|
|
|
|
|
|
my $calls_rs = $c->model('DB')->resultset('cdr')->search_rs({
|
|
|
|
|
# source_user_id => { 'in' => [ map {$_->uuid} @{$contract->{subscriber}} ] },
|
|
|
|
|
'call_status' => 'ok',
|
|
|
|
|
'source_user_id' => { '!=' => '0' },
|
|
|
|
|
@ -307,22 +315,15 @@ sub get_contract_calls_rs{
|
|
|
|
|
{ '<=' => $etime->epoch},
|
|
|
|
|
],
|
|
|
|
|
'source_account_id' => $customer_contract_id,
|
|
|
|
|
},undef ),NGCP::Panel::Utils::CallList::SUPPRESS_INOUT);
|
|
|
|
|
|
|
|
|
|
my @cols = ();
|
|
|
|
|
push(@cols,qw/source_user source_domain source_cli destination_user_in/);
|
|
|
|
|
push(@cols,NGCP::Panel::Utils::CallList::get_suppression_id_colnames());
|
|
|
|
|
push(@cols,qw/start_time duration call_type source_customer_cost/);
|
|
|
|
|
my @colnames = @cols;
|
|
|
|
|
push(@cols,qw/source_customer_billing_zones_history.zone source_customer_billing_zones_history.detail/);
|
|
|
|
|
push(@colnames,qw/zone zone_detail/);
|
|
|
|
|
|
|
|
|
|
return $calls_rs->search_rs(undef,{
|
|
|
|
|
},{
|
|
|
|
|
select => \@cols,
|
|
|
|
|
as => \@colnames,
|
|
|
|
|
'join' => 'source_customer_billing_zones_history',
|
|
|
|
|
'order_by' => 'start_time',
|
|
|
|
|
} );
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
#suppression rs decoration at last, after any "select =>"
|
|
|
|
|
return NGCP::Panel::Utils::CallList::call_list_suppressions_rs($c,$calls_rs,NGCP::Panel::Utils::CallList::SUPPRESS_INOUT);
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|