Mercurial > hg > reproctool-df

changeset 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
files reproctool.cgi
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/reproctool.cgi	Sun Jan 25 17:38:56 2009 +0000
+++ b/reproctool.cgi	Sun Jan 25 17:44:32 2009 +0000
@@ -234,6 +234,15 @@
 <table>
 END
 
+sub pretty_numbers
+{
+    my $num = shift;
+    $num = sprintf('%.2f', $num);
+    $num = reverse $num;
+    $num =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
+    return reverse $num;
+}
+
 my $igb = ($ENV{HTTP_USER_AGENT} =~ /EVE-minibrowser/i);
 
 for my $item (@output)