member intel, shows all incoming and outgoing fleets for member planets

[ndwebbie.git] / top100.pl

diff --git a/top100.pl b/top100.pl
index 27219e0e570e995057c7b6ec795433c59f3db7c0..20b0bd1f8c8b582282f30444b997a53742320732 100644 (file)
--- a/top100.pl
+++ b/top100.pl
@@ -52,9 +52,10 @@ if (isHC()){
 }
 my $query = $DBH->prepare(qq{SELECT id,coords(x,y,z), ruler, planet,race,
        size, score, value, xp, sizerank, scorerank, valuerank, xprank
-       $extra_columns FROM current_planet_stats ORDER BY $order LIMIT 100 OFFSET $offset});
-$query->execute;
+       $extra_columns FROM current_planet_stats ORDER BY $order LIMIT 100 OFFSET ?});
+$query->execute($offset);
 my @planets;
+my $i = 0;
 while (my ($id,$coords,$ruler,$planet,$race,$size,$score,$value,$xp,$sizerank,$scorerank,$valuerank,$xprank
                ,$planet_status,$hit_us,$alliance,$relationship,$nick) = $query->fetchrow){
        my %planet = (Coords => $coords, Planet => "$ruler OF $planet", Race => $race, Size => "$size ($sizerank)"
@@ -67,7 +68,9 @@ while (my ($id,$coords,$ruler,$planet,$race,$size,$score,$value,$xp,$sizerank,$s
                $planet{Relationship} = $relationship;
                $planet{isHC} = 1;
        }
+       $planet{ODD} = $i % 2;
        push @planets,\%planet;
+       $i++;
 }
 $BODY->param(Planets => \@planets);