my $planet;
if ($c->user->planet){
my $query = $dbh->prepare(q{SELECT value, score,x,y FROM current_planet_stats WHERE pid = ?});
my $planet;
if ($c->user->planet){
my $query = $dbh->prepare(q{SELECT value, score,x,y FROM current_planet_stats WHERE pid = ?});
$target->{claims} = \@claims;
my $num = pow(10,length($target->{score})-2);
$target->{claims} = \@claims;
my $num = pow(10,length($target->{score})-2);
$num = pow(10,length($target->{size})-2);
$target->{size} = floor($target->{size}/$num)*$num;
$num = pow(10,length($target->{fleetvalue})-2);
$num = pow(10,length($target->{size})-2);
$target->{size} = floor($target->{size}/$num)*$num;
$num = pow(10,length($target->{fleetvalue})-2);
SELECT $1,pid,array_to_string(array_agg(
fleet || ': eta=' || eta || ', amount=' || amount || ', type=' || shiptype
|| ' landing=' || landing_tick || 'back=' || landing_tick + eta
SELECT $1,pid,array_to_string(array_agg(
fleet || ': eta=' || eta || ', amount=' || amount || ', type=' || shiptype
|| ' landing=' || landing_tick || 'back=' || landing_tick + eta