Need to send a real value to execute when the role isn't available

[NDIRC.git] / Commands / PA.pm

diff --git a/Commands/PA.pm b/Commands/PA.pm
index 7fb453db9f78c513e759d679ad7db1916132a9db..9f7ae8a4071542d536ee3e705c0db5288f8f256d 100644 (file)
--- 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->{$_});