lib/RT/CustomRole.pm

52 package RT::CustomRole;
55 use RT::CustomRoles;
56 use RT::ObjectCustomRole;
97     unless ( $self->CurrentUser->HasRight(Object => $RT::System, Right => 'AdminCustomRoles') ) {
109     $RT::Handle->BeginTransaction;
119         $RT::Handle->Rollback;
120         $RT::Logger->error("Couldn't create CustomRole: $msg");
129     RT->System->CustomRoleCacheNeedsUpdate(1);
133     my $system_group = RT::Group->new( RT->SystemUser );
136         Object              => RT->System,
141         $RT::Handle->Rollback;
142         $RT::Logger->error("Couldn't create system custom role group: $msg");
146     $RT::Handle->Commit;
155     RT::Ticket->RegisterRole(
171             my $role = RT::CustomRole->new(RT->SystemUser);
205             my $role = RT::CustomRole->new(RT->SystemUser);
227             my $role = RT::CustomRole->new(RT->SystemUser);
238     RT::Ticket->UnregisterRole($self->GroupType);
294     my $temp = RT::CustomRole->new(RT->SystemUser);
317     RT::ObjectCustomRole->new( $self->CurrentUser )->DeleteAll( CustomRole => $self );
320     RT->System->CustomRoleCacheNeedsUpdate(1);
333     my $record = RT::ObjectCustomRole->new( $self->CurrentUser );
347     my $record = RT::ObjectCustomRole->new( $self->CurrentUser );
360     return RT::ObjectCustomRole->new( $self->CurrentUser )
372     return RT::ObjectCustomRole->new( $self->CurrentUser )
403     my $queue = RT::Queue->new( $self->CurrentUser );
412     my $rec = RT::ObjectCustomRole->new( $self->CurrentUser );
443     my $queue = RT::Queue->new( $self->CurrentUser );
450     my $rec = RT::ObjectCustomRole->new( $self->CurrentUser );
559     RT->System->CustomRoleCacheNeedsUpdate(1);
624     my $queue_group = RT::Group->new($self->CurrentUser);
631         $RT::Handle->Rollback;
632 …$RT::Logger->error("Couldn't find role group for " . $self->GroupType . " on queue " . $queue->Id);
638         $RT::Handle->Rollback;
639         $RT::Logger->error("Couldn't SetDisabled($value) on role group: $msg");
644     my $ticket_groups = RT::Groups->new($self->CurrentUser);
671             $RT::Handle->Rollback;
672             $RT::Logger->error("Couldn't SetDisabled($value) ticket role group: $msg");
684 …$RT::Logger->warning("Couldn't ".(($value == 0) ? "enable" : "disable")." custom role ".$self->Nam…
688     RT::Principal->InvalidateACLCache();
692         RT->System->CustomRoleCacheNeedsUpdate(1);
696         RT->System->CustomRoleCacheNeedsUpdate(1);
726 RT::Base->_ImportOverlays();