Mercurial > hg > reproctool-df
comparison reproctool.cgi @ 43:783d0f954927
Rounding numbers off, not 2dp
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sun, 25 Jan 2009 21:33:39 +0000 |
parents | e9429d4a7942 |
children | 06bf920d0c0d 964393fff57e |
comparison
equal
deleted
inserted
replaced
42:e9429d4a7942 | 43: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 |