MT#17805 captured dialogs process callid

Change-Id: I6f7e7b673eac8be1e6508048b135b42c8ee0df14

lib/NGCP/Panel/Controller/Subscriber.pm

@@ -3335,7 +3335,15 @@ sub ajax_captured_calls :Chained('master') :PathPart('callflow/ajax') :Args(0) {
         group_by => 'me.call_id',
     });
 
-    NGCP::Panel::Utils::Datatables::process($c, $rs, $c->stash->{capture_dt_columns});
+    NGCP::Panel::Utils::Datatables::process($c, $rs, $c->stash->{capture_dt_columns},
+        sub {
+            my $item = shift;
+            my %result;
+            $result{call_id} = $item->call_id =~ s/(_b2b-1|_pbx-1)+$//rg;
+            # similar to Utils::CallList::process_cdr_item
+            return %result;
+        }
+    );
     $c->detach( $c->view("JSON") );
 }
 

lib/NGCP/Panel/Utils/CallList.pm

@@ -150,7 +150,7 @@ sub process_cdr_item {
     }
 
     # strip any _b2b-1 and _pbx-1 to allow grouping of calls
-    $resource->{call_id} =~ s/(_b2b-1)|(_pbx-1)//g;
+    $resource->{call_id} =~ s/(_b2b-1|_pbx-1)+$//g;
 
     my $own_sub = ($resource->{direction} eq "out")
         ? $billing_src_sub