X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FWeb%2FPages%2FMain.pm;h=f1bc20261cbf3d88922e9d1f396cea28f5d366c3;hb=9cfc406396d8bb211798cfe9cf1e6a13c8b3a7e6;hp=b1c0b2694de5932c57e953c4157620a612121dc4;hpb=256609e2df07f5dd40a33ace6163d2b72a269246;p=ndwebbie.git

diff --git a/ND/Web/Pages/Main.pm b/ND/Web/Pages/Main.pm
index b1c0b26..f1bc202 100644
--- 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])");