# HG changeset patch
# User df
# Date 1232906066 0
# Node ID 5c28a9d5fae76047be6b9b422e3f407b618f9a4c
# Parent  d1028107ab7548e35e8a3f98dbe1805e2dc28d81
Added number formatting.

diff -r d1028107ab75 -r 5c28a9d5fae7 reproctool.cgi
--- a/reproctool.cgi	Sun Jan 25 17:44:32 2009 +0000
+++ b/reproctool.cgi	Sun Jan 25 17:54:26 2009 +0000
@@ -202,13 +202,24 @@
 while ($pre_reprocess->fetch())
 {
     my $item = {};
-    my $isk = ($trit * $ttrit) + ($pyer * $tpyer) + ($mexa * $tmexa) +
+    my $isk = sprintf("%d", ($trit * $ttrit) + ($pyer * $tpyer) + ($mexa * $tmexa) +
                 ($isog * $tisog) + ($nocx * $tnocx) + ($zydr * $tzydr) +
-                ($mega * $tmega) + ($morp * $tmorp);
+                ($mega * $tmega) + ($morp * $tmorp) );;
     my $repDetails = sprintf( "Trit=%d Py=%d Mex=%d Iso=%d Nocx=%d Zyd=%d Mega=%d Morp=%d",
                               $ttrit, $tpyer, $tmexa, $tisog, $tnocx, $tzydr, $tmega, $tmorp );
     
     $meta = 0 unless defined $meta;
+    
+    # Creative adding of 000 seperation for readability.
+    if ( length($isk)>3 )
+    {
+        substr($isk, -3, 0) = ',';
+    }
+    if ( length($isk)>7 )
+    {
+        substr($isk, -7, 0) = ',';
+    }
+    
     $item = { id => $tid, name => $tname, meta => $meta, icon => $icon,
               price => $basePrice, reprocessIsk => $isk, reprocessDetails => $repDetails };