X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Commands%2FPA.pm;h=9f7ae8a4071542d536ee3e705c0db5288f8f256d;hb=6815b7a875e95937693864b76a028f92ee2cbf35;hp=7fb453db9f78c513e759d679ad7db1916132a9db;hpb=784ed86eacf5ebed4d3da2ff166b7542ac8f5cd0;p=NDIRC.git

diff --git a/Commands/PA.pm b/Commands/PA.pm
index 7fb453d..9f7ae8a 100644
--- a/Commands/PA.pm
+++ b/Commands/PA.pm
@@ -55,7 +55,7 @@ sub p
 	}
 
 	my $f = $c->model->prepare(q{
-WITH p AS (SELECT coords(x,y,z),ruler,planet,race,score,size,value,scorerank,sizerank,
+WITH p AS (SELECT pid,coords(x,y,z),ruler,planet,race,score,size,value,scorerank,sizerank,
 		valuerank, xp, xprank, alliance, relationship, nick, planet_status, hit_us, channel
 	FROM current_planet_stats
 	WHERE (x = $1 AND y = $2 and z = $3) OR nick ILIKE $4 LIMIT 1
@@ -70,7 +70,7 @@ WITH p AS (SELECT coords(x,y,z),ruler,planet,race,score,size,value,scorerank,siz
 )
 SELECT * FROM p, tags;
 	});
-	$f->execute($x,$y,$z,$nick,$c->uid,$c->check_user_roles(qw/irc_p_intel/));
+	$f->execute($x,$y,$z,$nick,$c->uid,$c->check_user_roles(qw/irc_p_intel/) // 0);
 	if (my $planet = $f->fetchrow_hashref()){
 		for (keys %{$planet}){
 			$planet->{$_} = valuecolor(1,$planet->{$_});