API and Rights

Hello,

I’m using rt-3.6.1 after a migration from rt-3.0.9. Database is MySQL
4.1.15.
Given an RT::Group object and an RT::Queue object, what is the simplest
way to grant a right such as “AdminQueue” to the group?

I’ve been trying the following without any joy:

... my $rt_group = RT::Group->new(RT::SystemUser); my $rt_queue = RT::Queue->new(RT::SystemUser);

$rt_group->LoadUserDefinedGroup(“test admins”);
$rt_queue->Load(“test queue”);

my $principal = $rt_group->PrincipalObj;

$principal->GrantRight(Right => “AdminQueue”, Object => $rt_queue);

However, when I run that code I get the following message:
[Mon Oct 30 16:28:33 2006] [crit]: 1 (/opt/rt/lib/RT/ACE_Overlay.pm:907)
[Mon Oct 30 16:28:33 2006] [crit]: Can’t load a principal for id
(/opt/rt/lib/RT/ACE_Overlay.pm:908)

Thanks,

Paddy Newman - t. +44(020)7545-4902 e. 54902

This e-mail may contain confidential and/or privileged information. If you
are not the intended recipient (or have received this e-mail in error)
please notify the sender immediately and destroy this e-mail. Any
unauthorized copying, disclosure or distribution of the material in this
e-mail is strictly forbidden.