diff --git a/lib/admin/Utils.pm b/lib/admin/Utils.pm index b29f222..dde6869 100644 --- a/lib/admin/Utils.pm +++ b/lib/admin/Utils.pm @@ -4,6 +4,7 @@ use warnings; use Time::Local; use HTML::Entities; +use POSIX; # Takes a search result total count, an offset and a limit and returns # an array containing offset values for a pagination link list @@ -153,7 +154,7 @@ sub prepare_call_list { $callentry{date} = sprintf("%02d.%02d.%04d %02d:%02d:%02d", @date[3,4,5,2,1,0]); if($$call{duration}) { - my $duration = $$call{duration}; + my $duration = ceil($$call{duration}); while($duration > 59) { my $left = sprintf("%02d", $duration % 60); $callentry{duration} = ":$left". (defined $callentry{duration} ? $callentry{duration} : '');