$target->{valuebash} = 'bash' if ($target->{value}/$planet->{value} < 0.4);
#next if ($target->{score}/$planet->{score} < 0.4) && ($target->{value}/$planet->{value} < 0.4);
}
$target->{valuebash} = 'bash' if ($target->{value}/$planet->{value} < 0.4);
#next if ($target->{score}/$planet->{score} < 0.4) && ($target->{value}/$planet->{value} < 0.4);
}
my $targetquery = $dbh->prepare(qq{SELECT r.id,coords(x,y,z),comment,size
,score,value,race,planet_status,relationship,r.planet, s.scans
my $targetquery = $dbh->prepare(qq{SELECT r.id,coords(x,y,z),comment,size
,score,value,race,planet_status,relationship,r.planet, s.scans
FROM raid_targets r
JOIN current_planet_stats p ON p.id = r.planet
LEFT OUTER JOIN ( SELECT planet, array_accum(s::text) AS scans
FROM raid_targets r
JOIN current_planet_stats p ON p.id = r.planet
LEFT OUTER JOIN ( SELECT planet, array_accum(s::text) AS scans
WHERE r.raid = ?
GROUP BY r.id,x,y,z,comment,size,score,value,race
,planet_status,relationship,comment,r.planet, s.scans
WHERE r.raid = ?
GROUP BY r.id,x,y,z,comment,size,score,value,race
,planet_status,relationship,comment,r.planet, s.scans
for my $i (1 .. $target->{waves}){
$claims->execute($target->{id},$i);
my $claimers;
for my $i (1 .. $target->{waves}){
$claims->execute($target->{id},$i);
my $claimers;