-specify username- % if ($IncludeCurrentUser) { id ? 'SELECTED' : !defined $Principal ? 'SELECTED' : ''%> VALUE="<%$session{CurrentUser}->id%>">User: <%$session{CurrentUser}->Name%> % } % if ($IncludeRoles) { Roles: % if (ref($System) eq 'RT::System') { VALUE="Owner-Role" >   Owner VALUE="Requestor-Role">   Requestor VALUE="Cc-Role" >   Cc VALUE="AdminCc-Role" >   AdminCc % } % elsif (ref($System) eq 'RTx::AssetTracker::System') { % if ( %RTx::AssetTracker::Type::DEFAULT_ROLES ) { %# AT configurable roles is supported % foreach my $role ( RTx::AssetTracker::Type->ActiveRoleArray() ) { VALUE="<%$role%>-Role" >   <% $role %> % } % } % else { VALUE="Owner-Role" >   Owner VALUE="Admin-Role" >   Admin % } % } % } % if ($IncludeSystemGroups) { System Groups: VALUE="<%$SysGroupID{Everyone}%>">   Everyone VALUE="<%$SysGroupID{Privileged}%>">   Privileged Users VALUE="<%$SysGroupID{Unprivileged}%>">   Unprivileged Users % } % if ($IncludePrincipalGroups and !$NoGroups) { Groups you are a member of: % foreach my $group (sort { $a->Name() cmp $b->Name() } values %groups) { % next unless $group->HasMemberRecursively($session{CurrentUser}->PrincipalObj); id ? 'SELECTED=1' : ''%> VALUE="<%$group->id%>">   <%$group->Name%> % delete $groups{$group->Name()}; % } % } % if ($IncludeAdminGroups and !$NoGroups and %groups) { Groups you can administer: % foreach my $group (sort { $a->Name() cmp $b->Name() } values %groups) { % next unless $session{CurrentUser}->HasRight(Right => 'AdminGroup', Object => $group); id ? 'SELECTED=1' : ''%> VALUE="<%$group->id%>">   <%$group->Name%> % delete $groups{$group->Name()}; % } % } % if ($IncludeOtherGroups and !$NoGroups and %groups) { Other groups you can see: % foreach my $group (sort { $a->Name() cmp $b->Name() } values %groups) { id ? 'SELECTED=1' : ''%> VALUE="<%$group->id%>">   <%$group->Name%> % } % } <%INIT> my $groups = new RT::Groups($session{'CurrentUser'}); $groups->Limit(FIELD => 'Domain', VALUE => 'UserDefined'); my %groups = map { $_->Name() => $_ } @{$groups->ItemsArrayRef}; <%ARGS> $Principal $IncludeRoles => 1 $IncludeSystemGroups => 1 $IncludePrincipalGroups => 1 $IncludeAdminGroups => 1 $IncludeOtherGroups => 1 $IncludeCurrentUser => 1 $NoGroups => 0 $System => $RT::System <%ONCE> my @SystemGroups = ( 'Everyone', 'Privileged', 'Unprivileged' ); my %SysGroupID; foreach ( @SystemGroups ) { my $group = RT::Group->new( $RT::SystemUser ); $group->LoadSystemInternalGroup( $_ ); $SysGroupID{ $_ } = $group->PrincipalId(); }