[Rt-devel] Re: adding new rights to $RIGHTS

[Mark A Bentley]

On Tue, 27 Jun 2006, Boldra wrote:
> Hi, I'm trying to add new rights in rt 3.5.6 and hitting a problem;  Although 
> the new right appears in the UI, when I try to assign it, I get "System 
> error. Right not granted".
>

I had the same problem in 3.4.5, but I think it was because I was missing
a bit of code in my Queue_Local.pm.  Here's my lib/RT/Queue_Local.pm which
I've tested, and works now:

     package RT::Queue;

     use strict;
     no warnings qw(redefine);

     use vars qw( $RIGHTS );

     $RIGHTS = {
         Bentlema            => 'Bentlema is testing',
         %{$RIGHTS}
     };

     foreach my $right ( keys %{$RIGHTS} ) {
         $RT::ACE::LOWERCASERIGHTNAMES{ lc $right } = $right;
     }

     1;

Previously I didn't have the 'use vars' line in there, nor the 'foreach' at the
end.  After adding those two bits of code, things work as expected.

    Mark


-- 
Mark A Bentley
TPR Lab Systems Support
Cingular Wireless - Redmond, WA
Email:  mark.a.bentley at cingular.com
425-702-3072 (desk) / 425-702-2826 (fax)