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

diff --git a/Commands/PA.pm b/Commands/PA.pm
index 500e93b8e7b65874ca948978566bd566d6307b6e..9f7ae8a4071542d536ee3e705c0db5288f8f256d 100644 (file)
--- a/Commands/PA.pm
+++ b/Commands/PA.pm
@@ -70,7 +70,7 @@ WITH p AS (SELECT pid,coords(x,y,z),ruler,planet,race,score,size,value,scorerank
 )
 SELECT * FROM p, tags;
        });
 )
 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->{$_});
        if (my $planet = $f->fetchrow_hashref()){
                for (keys %{$planet}){
                        $planet->{$_} = valuecolor(1,$planet->{$_});