Mercurial > hg > reproctool-df

changeset 31:5c28a9d5fae7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added number formatting.
author df
date Sun, 25 Jan 2009 17:54:26 +0000
parents d1028107ab75
children a4197a854e79
files reproctool.cgi
diffstat 1 files changed, 13 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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 };