nicer table in check

[ndwebbie.git] / check.pl

diff --git a/check.pl b/check.pl
index 9112aa21982b1bc9000c4c01aa6aeca9f9dd708c..788e93887fd25dee5b3ad2e12bca38a1004f9604 100644 (file)
--- a/check.pl
+++ b/check.pl
@@ -74,6 +74,7 @@ if (defined $z){
 }
 my @planets;
 my $planet_id = undef;
+my $i = 0;
 while (my ($id,$coords,$planet,$race,$size,$score,$value,$xp,$sizerank,$scorerank,$valuerank,$xprank
                ,$fleetvalue,$resvalue,$planet_status,$hit_us,$alliance,$relationship,$nick) = $query->fetchrow){
        $planet_id = $id;
@@ -91,6 +92,8 @@ while (my ($id,$coords,$planet,$race,$size,$score,$value,$xp,$sizerank,$scoreran
                        $LOG->execute($ND::UID,"BC browsing ND planet $coords tick $ND::TICK");
                }
        }
+       $i++;
+       $planet{ODD} = $i % 2;
        push @planets,\%planet;
 }
 $BODY->param(Planets => \@planets);