alliance graph

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

diff --git a/ND/Web/Pages/Main.pm b/ND/Web/Pages/Main.pm
index b1c0b2694de5932c57e953c4157620a612121dc4..f1bc20261cbf3d88922e9d1f396cea28f5d366c3 100644 (file)
--- a/ND/Web/Pages/Main.pm
+++ b/ND/Web/Pages/Main.pm
@@ -24,7 +24,7 @@ use CGI qw/:standard/;
 use ND::Include;
 use ND::Web::Include;
 
-our @ISA = qw/ND::Web::XMLPage/;
+use base qw/ND::Web::XMLPage/;
 
 $ND::Web::Page::PAGES{main} = 'ND::Web::Pages::Main';
 
@@ -124,13 +124,15 @@ sub render_body {
        $BODY->param(HumorPoints => $humor_points);
        $BODY->param(TotalPoints => $total_points);
 
-       $BODY->param(hasPlanet => $planet);
+       $BODY->param(Planet => $planet);
 
        if ($planet){
                my @row = $DBH->selectrow_array('SELECT ruler,planet,coords(x,y,z),size,sizerank
                        ,score,scorerank,value,valuerank,xp,xprank FROM current_planet_stats
                        WHERE id = ?',undef,$planet);
                $BODY->param(PlanetName => "$row[0] OF $row[1] ($row[2])");
+               $BODY->param(PlanetName => "$row[0] OF $row[1]");
+               $BODY->param(PlanetCoords =>  $row[2]);
                $BODY->param(PlanetSize => "$row[3] ($row[4])");
                $BODY->param(PlanetScore => "$row[5] ($row[6])");
                $BODY->param(PlanetValue => "$row[7] ($row[8])");