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;
- push @intellists,{Message => 'Incoming fleets', Intel => \@intel, Origin => 1};
+ push @intellists,{Message => 'Incoming fleets', Intel => \@incomings, Origin => 1};
- my $query = $DBH->prepare(intelquery('t.alliance AS talliance,coords(t.x,t.y,t.z) AS target',"o.id = ? $showticks"));
+ $query = $DBH->prepare(intelquery('t.alliance AS talliance,coords(t.x,t.y,t.z) AS target',"o.id = ? $showticks"));
- push @intellists,{Message => 'Outgoing Fleets', Intel => \@intel, Target => 1};
+ push @intellists,{Message => 'Outgoing Fleets', Intel => \@outgoings, Target => 1};