# HG changeset patch
# User Dominic Cleal <dominic@computerkb.co.uk>
# Date 1232905472 0
# Node ID d1028107ab7548e35e8a3f98dbe1805e2dc28d81
# Parent  420807d41e047da1c7c73e7c34af8c8a2874b476
Pretty numbers function

diff -r 420807d41e04 -r d1028107ab75 reproctool.cgi
--- 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)