X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=covop.pl;h=9c8284d33ddeba4ec3f11b654268045e8d885bec;hb=cbd638b5704dd3a5afeec3e0290c06fd56e98cd7;hp=180a0a4f05412cb4c814e641cd033c520e189504;hpb=1b53b46299c5a8a8a89b1c7d916e1234d9d064a8;p=ndwebbie.git diff --git a/covop.pl b/covop.pl index 180a0a4..9c8284d 100644 --- a/covop.pl +++ b/covop.pl @@ -57,10 +57,12 @@ FROM covop_targets c JOIN current_planet_stats p ON p.id = c.planet $query->execute($ND::PLANET); my @targets; +my $i = 0; while (my ($id,$coords,$metal,$crystal,$eonium,$seccents,$dists,$lastcovop,$user,$max) = $query->fetchrow){ push @targets,{Username => $user, Target => $id, Coords => $coords , Metal => $metal, Crystal => $crystal, Eonium => $eonium, SecCents => $seccents - , Dists => $dists, MaxResHack => $max, LastCovOp => $lastcovop, List => $list}; + , Dists => $dists, MaxResHack => $max, LastCovOp => $lastcovop, List => $list, ODD => $i % 2}; + $i++; } $BODY->param(Targets => \@targets);