gal rankings and fixed a bug with gal graph caching

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

diff --git a/ND/Web/Pages/Main.pm b/ND/Web/Pages/Main.pm
index ca482eeda0ed89765f29c3f4690e89e28f30c399..655ed4014ccd70c7b10abab74093cbf6a4a2fbfd 100644 (file)
--- a/ND/Web/Pages/Main.pm
+++ b/ND/Web/Pages/Main.pm
@@ -123,7 +123,7 @@ sub render_body {
        $BODY->param(Planet => $planet);
 
 
-       my $planetstats= $DBH->selectrow_hashref(q{Select coords(x,y,z), ((ruler || ' OF ') || p.planet) as planet,race,
+       my $planetstats= $DBH->selectrow_hashref(q{SELECT x,y,z, ((ruler || ' OF ') || p.planet) as planet,race,
                size, size_gain, size_gain_day,
                score,score_gain,score_gain_day,
                value,value_gain,value_gain_day,
@@ -149,7 +149,7 @@ sub render_body {
                        }
                }
                $BODY->param(Planets => [$planet]);
-               $BODY->param(PlanetCoords => $planet->{coords});
+               $BODY->param(PlanetCoords => "$planet->{x}:$planet->{y}:$planet->{z}");
        }