Mercurial > hg > reproctool-df

comparison reproctool.cgi @ 30:d1028107ab75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Pretty numbers function
author Dominic Cleal <dominic@computerkb.co.uk>
date Sun, 25 Jan 2009 17:44:32 +0000
parents 420807d41e04
children 5c28a9d5fae7 583e4c324c24
comparison
equal deleted inserted replaced
29:420807d41e04 30:d1028107ab75
232 232
233 <body> 233 <body>
234 <table> 234 <table>
235 END 235 END
236 236
237 sub pretty_numbers
238 {
239 my $num = shift;
240 $num = sprintf('%.2f', $num);
241 $num = reverse $num;
242 $num =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
243 return reverse $num;
244 }
245
237 my $igb = ($ENV{HTTP_USER_AGENT} =~ /EVE-minibrowser/i); 246 my $igb = ($ENV{HTTP_USER_AGENT} =~ /EVE-minibrowser/i);
238 247
239 for my $item (@output) 248 for my $item (@output)
240 { 249 {
241 if ($col == $cols) 250 if ($col == $cols)