if (defined param('cmd') && param('cmd') eq 'coords'){
my $coords = param('coords');
$DBH->do(q{CREATE TEMPORARY TABLE coordlist (
if (defined param('cmd') && param('cmd') eq 'coords'){
my $coords = param('coords');
$DBH->do(q{CREATE TEMPORARY TABLE coordlist (
my $query = $DBH->prepare(intelquery('o.alliance AS oalliance,coords(o.x,o.y,o.z) AS origin',"t.id = ? $showticks"));
$query->execute($planet->{id}) or $error .= $DBH->errstr;
my @intellists;
my $query = $DBH->prepare(intelquery('o.alliance AS oalliance,coords(o.x,o.y,o.z) AS origin',"t.id = ? $showticks"));
$query->execute($planet->{id}) or $error .= $DBH->errstr;
my @intellists;