$x = $1;
$y = $2;
$z = $3;
- $BODY->param(Coords => param('coords'));
+ $BODY->param(Coords => "$x:$y".(defined $z ? ":$z" : ''));
}else{
$ND::ERROR .= p b q{Couldn't parse coords};
return $BODY;
$planet{PlanetStatus} = $planet_status;
$planet{Relationship} = $relationship;
$planet{isBC} = 1;
- if ($z && $alliance eq 'NewDawn'){
+ if ($z && $alliance eq 'NewDawn' && not (isHC || isOfficer)){
log_message $ND::UID,"BC browsing ND planet $coords tick $ND::TICK";
}
}
$scan .= q{</table>};
push @scans, {Scan => $scan};
- $query = $DBH->prepare(q{SELECT x,y,z,tick FROM planet_stats WHERE id = ?});
+ $query = $DBH->prepare(q{SELECT x,y,z,tick FROM planet_stats WHERE id = ? ORDER BY tick ASC});
$scan = q{
<p>Previous Coords</p>
<table><tr><th>Tick</th><th>Value</th><th>Difference</th></tr>};