TT#43755 fix miliseconds presentation

Change-Id: I8a150e3c70cdc7d55de88daef7ca0cf4f4f12ad1
(cherry picked from commit ad0fadef81)

lib/NGCP/Panel/Role/API/CallLists.pm

@@ -113,11 +113,11 @@ sub resource_from_item {
 
     my $start_time = NGCP::Panel::Utils::API::Calllist::apply_owner_timezone($self,$c,$item->start_time,$owner);
     $resource->{start_time} = $datetime_fmt->format_datetime($start_time);
-    $resource->{start_time} .= '.'.$start_time->millisecond if $start_time->millisecond > 0.0;
+    $resource->{start_time} .= '.'.sprintf("%03d",$start_time->millisecond) if $start_time->millisecond > 0.0;
 
     my $init_time = NGCP::Panel::Utils::API::Calllist::apply_owner_timezone($self,$c,$item->init_time,$owner);
     $resource->{init_time} = $datetime_fmt->format_datetime($init_time);
-    $resource->{init_time} .= '.'.$init_time->millisecond if $init_time->millisecond > 0.0;
+    $resource->{init_time} .= '.'.sprintf("%03d",$init_time->millisecond) if $init_time->millisecond > 0.0;
     return $resource;
 }
 

lib/NGCP/Panel/Role/API/CallRecordingStreams.pm

@@ -122,7 +122,7 @@ sub resource_from_item {
         }
         $resource{start_time} = $datetime_fmt->format_datetime($item->start_timestamp);
         # no need to show millisec precision here, I guess...
-        #$resource{start_time} .= '.'.$item->start_timestamp->millisecond
+        #$resource{start_time} .= '.'.sprintf("%03d",$item->start_timestamp->millisecond)
         #    if $item->start_timestamp->millisecond > 0.0;
     } else {
         $resource{start_time} = undef;
@@ -132,7 +132,7 @@ sub resource_from_item {
             $item->end_timestamp->set_time_zone($tz);
         }
         $resource{end_time} = $datetime_fmt->format_datetime($item->end_timestamp);
-        #$resource{end_time} .= '.'.$item->end_timestamp->millisecond
+        #$resource{end_time} .= '.'.sprintf("%03d",$item->end_timestamp->millisecond)
         #    if $item->end_timestamp->millisecond > 0.0;
     } else {
         $resource{end_time} = undef;

lib/NGCP/Panel/Role/API/CallRecordings.pm

@@ -126,7 +126,7 @@ sub resource_from_item {
         }
         $resource{start_time} = $datetime_fmt->format_datetime($item->start_timestamp);
         # no need to show millisec precision here, I guess...
-        #$resource{start_time} .= '.'.$item->start_timestamp->millisecond
+        #$resource{start_time} .= '.'.sprintf("%03d",$item->start_timestamp->millisecond)
         #    if $item->start_timestamp->millisecond > 0.0;
     } else {
         $resource{start_time} = undef;
@@ -136,7 +136,7 @@ sub resource_from_item {
             $item->end_timestamp->set_time_zone($tz);
         }
         $resource{end_time} = $datetime_fmt->format_datetime($item->end_timestamp);
-        #$resource{end_time} .= '.'.$item->end_timestamp->millisecond
+        #$resource{end_time} .= '.'.sprintf("%03d",$item->end_timestamp->millisecond)
         #    if $item->end_timestamp->millisecond > 0.0;
     } else {
         $resource{end_time} = undef;

lib/NGCP/Panel/Role/API/Calls.pm

@@ -133,10 +133,10 @@ sub resource_from_item {
     }
 
     $resource->{start_time} = $datetime_fmt->format_datetime($item->start_time);
-    $resource->{start_time} .= '.'.$item->start_time->millisecond if $item->start_time->millisecond > 0.0;
+    $resource->{start_time} .= '.'.sprintf("%03d",$item->start_time->millisecond) if $item->start_time->millisecond > 0.0;
 
     $resource->{init_time} = $datetime_fmt->format_datetime($item->init_time);
-    $resource->{init_time} .= '.'.$item->init_time->millisecond if $item->init_time->millisecond > 0.0;
+    $resource->{init_time} .= '.'.sprintf("%03d",$item->init_time->millisecond) if $item->init_time->millisecond > 0.0;
 
     return $resource;
 }

lib/NGCP/Panel/Role/API/Conversations.pm

@@ -650,7 +650,7 @@ sub process_hal_resource {
     #    $timestamp->set_time_zone($c->req->param('tz'));
     #}
     $resource->{timestamp} = $datetime_fmt->format_datetime($timestamp);
-    $resource->{timestamp} .= '.' . $timestamp->millisecond if $timestamp->millisecond > 0.0;
+    $resource->{timestamp} .= '.' . sprintf("%03d",$timestamp->millisecond) if $timestamp->millisecond > 0.0;
 
     # todo: mashal specific fields, per conversation event type ...
 

lib/NGCP/Panel/Utils/Datatables.pm

@@ -285,7 +285,7 @@ sub _prune_row {
         }
         if(blessed($v) && $v->isa('DateTime')) {
             $row{$k} = $v->ymd('-') . ' ' . $v->hms(':');
-            $row{$k} .= '.'.$v->millisecond if $v->millisecond > 0.0;
+            $row{$k} .= '.'.sprintf("%03d",$v->millisecond) if $v->millisecond > 0.0;
         }
     }
     return { %row };

lib/NGCP/Panel/Utils/DateTime.pm

@@ -215,7 +215,7 @@ sub to_string {
     my ($dt) = @_;
     return unless defined ($dt);
     my $s = $dt->ymd('-') . ' ' . $dt->hms(':');
-    $s .= '.'.$dt->millisecond if $dt->millisecond > 0.0;
+    $s .= '.'.sprintf("%03d",$dt->millisecond) if $dt->millisecond > 0.0;
     return $s;
 }