Mercurial > hg > reproctool

comparison reproctool.cgi @ 42:783d0f954927

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rounding numbers off, not 2dp
author Dominic Cleal <dominic@computerkb.co.uk>
date Sun, 25 Jan 2009 21:33:39 +0000
parents e9429d4a7942
children 964393fff57e
comparison
equal deleted inserted replaced
41:e9429d4a7942 42:783d0f954927
303 END 303 END
304 304
305 sub pretty_numbers 305 sub pretty_numbers
306 { 306 {
307 my $num = shift; 307 my $num = shift;
308 $num = sprintf('%.2f', $num); 308 $num = int($num);
309 $num = reverse $num; 309 $num = reverse $num;
310 $num =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g; 310 $num =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
311 return reverse $num; 311 return reverse $num;
312 } 312 }
313 313