[rt-users] Users groups modification

[Janne Pirkkanen]

Hi there.

This is my first post to this list but I have read it's archives. We have RT 2.13 in test 
box and it looks wonderfull. I've used many contrib -files to make little modifications 
to RT:s ui. So I thought that I send this little mod here, if someone finds it usefull 
(and makes it better). My perl is awfull and RT experience is only two months so please 
look this code carefully through before using it for real :)

So. We are using RT with quite a many different user groups and managing users groups (I 
like to think user groups as user profiles) felt difficult. So I made mod based on 
Admin/Groups/Members.html (to be Admin/Users/Groups.html). This makes it possible to go 
to some users page and see which groups he/she belongs in. And also add/remove user 
to/from groups.

Here are the files. Just drop Groups.html and SelectGroups to there folders and modify 
UserTabs -file so that you have link to that Admin/Users/Groups.html -file.

********************* File: Admin/Users/Groups.html starts **********************

%# File created 2002-08-07 J. Pirkkanen <jp at oppipoika.net>. Based on RT 2.0.13 file 
Admin/Groups/Members.html

<& /Admin/Elements/Header, Title => 'RT/Admin/Edit the user '. $User->Name &>
<& /Admin/Elements/UserTabs, id => $id &>
<& /Elements/ListActions, actions => \@results &>

<& /Elements/TitleBoxStart, title => "Editing group memberships for user " . $User-
>Name . " (" . $User->RealName . ")" &>

<FORM ACTION="<%$RT::WebPath%>/Admin/Users/Groups.html" METHOD=POST>
<INPUT TYPE=HIDDEN NAME=id VALUE="<%$User->id%>">
<TABLE WIDTH="100%">
<TR>
<TD>
Add groups</TD>
<TD>
Current groups
</TD>
</TR>

<TR>
<TD VALIGN=TOP>
<& /Admin/Elements/SelectGroups, Name => "AddGroups" &>
</TD>
<TD VALIGN=TOP>
<%PERL>
my $GroupList = "(Check box to remove user from group)\n<UL>\n";
my $ShowList = 0;
while ($Group = $Groups->Next()) {
	while ($GrpMember = $Group->MembersObj->Next()) {
		my $JumpToNext = 0;
		if ($GrpMember->UserObj->id == $id) {
			$GroupList .= "<LI><INPUT TYPE=CHECKBOX Name='DeleteMember-
" . $Group->Id . "'>\n";
			$GroupList .= "<a href='/Admin/Groups/Modify.html?id=" . 
$Group->Id . "'>" . $Group->Name . "</a> (" . $Group->Description . ")\n";
			$JumpToNext = 1;
			$ShowList = 1;
			next;
		}
 		next if $JumpToNext;
	}
}
$GroupList .= "</UL>\n";
</%PERL>
% if ($ShowList) {
	<% $GroupList | n %>
% } else {
	<i>(User doesn't belong to any groups)</i>
% }
</TD>
</TR>
</TABLE>
<& /Elements/TitleBoxEnd &>
<& /Elements/Submit &>
</form>

<%ARGS>
$AddGroups => undef
$id => undef
</%ARGS>

<%INIT>

my $User = new RT::User($session{'CurrentUser'});
if (!($User->CurrentUserHasRight('AdminGroups'))) {
	Abort('No permission to execute command.');
}

$User->Load($id);

my $Groups = new RT::Groups($session{'CurrentUser'});
$Groups->LimitToReal();

my $Group = new RT::Group($session{'CurrentUser'});

my $GrpMember = new RT::GroupMember($session{'CurrentUser'});

my (@results);

my $key;
foreach $key (keys %ARGS) {

if ($key =~ /^DeleteMember-(\d+)$/) {
    my $grpid = $1;
    $Group->Load($grpid) || Abort('Could not load group');
    my ($val,$msg) = $Group->DeleteMember($id);
    push (@results, $msg);
}
}

# Make sure AddGroups is always an array
my @AddGroups = (ref $AddGroups eq 'ARRAY') ? @{$AddGroups} : ($AddGroups);

foreach my $GroupMember (@AddGroups) {
    next unless ($GroupMember);
    $Group->Load($GroupMember) || Abort('Could not load group');
    my ($val, $msg) = $Group->AddMember($id);
    push (@results, $msg);
}

</%INIT>

********************* File: Admin/Users/Groups.html ends **********************

********************* File: Admin/Elements/SelectGroups starts ****************

%# 2002-08-07 JP: Created - based on RT 2.0.13 file Admin/Elements/SelectUsers

<SELECT MULTIPLE NAME="<%$Name%>"  SIZE=10>
%while (my $Group = $Groups->Next) {
<OPTION VALUE="<%$Group->Id%>"><%$Group->Name%>
%}
</SELECT>

<%INIT>
my $Groups = new RT::Groups($session{'CurrentUser'});
$Groups->LimitToReal();
</%INIT>

<%ARGS>
$Name => 'Groups'
</%ARGS>

********************* File: Admin/Elements/SelectGroups ends ******************

And you have to modify your Admin/Elements/UserTabs -file to look somethin like this:

********************* File: Admin/Elements/UserTabs starts ********************

<& /Admin/Elements/Tabs, subtabs => $subtabs,
			 current_tab => 'Admin/Users/',
                         current_subtab => $current_subtab &>
<hr>
<%INIT>
my $subtabs = {
	       Queues => { title => 'Basics',
			   path => "Admin/Users/Modify.html?id=".$id
			 },
#	       Scrips => { title => 'Rights',
#			   path => "Admin/Users/Rights.html?id=".$id
#			 }
	       XGroups => { title => 'Groups',
			   path => "Admin/Users/Groups.html?id=".$id
			 }

	      };
</%INIT>


<%ARGS>
$id => undef
$current_subtab => undef
</%ARGS>

********************* File: Admin/Elements/UserTabs starts ********************

I'm keen to hear if there is something wrong in these files so I can learn more about RT 
and Perl.

- Janne
email: janne.pirkkanen at oppipoika.net
tel: +358-40-5044622
fax: +358-3-2533830