split out some functionality

[ndwebbie.git] / ND / Web / Pages / Check.pm

diff --git a/ND/Web/Pages/Check.pm b/ND/Web/Pages/Check.pm
index 60600bb66c7c1f6d7cc6fa0970954162d06cc32a..53b6ab089118b5c6932e3959f74964f00952b48e 100644 (file)
--- a/ND/Web/Pages/Check.pm
+++ b/ND/Web/Pages/Check.pm
@@ -52,7 +52,7 @@ sub render {
                $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;
@@ -106,7 +106,7 @@ sub render {
                        $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";
                        }
                }
@@ -156,7 +156,7 @@ sub render {
                $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>};