[Rt-commit] r10311 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Sun Jan 13 17:51:57 2008
New Revision: 10311

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Admin/Users/Memberships.html

Log:
 r10135 at cubic-pc:  cubic | 2008-01-06 02:21:41 +0300
 * allow to add/delete the user to/from groups right from memberships tab


Modified: rt/branches/3.7-EXPERIMENTAL/html/Admin/Users/Memberships.html
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Admin/Users/Memberships.html	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Admin/Users/Memberships.html	Sun Jan 13 17:51:57 2008
@@ -52,16 +52,94 @@
     current_tab => $current_tab, 
     Title => $title &>
 
-<h2><&|/l&>Groups</&></h2>
+<& /Elements/ListActions, actions => \@results &>
 
-<& /Elements/ShowMemberships, UserObj => $UserObj &>
+<form method="post" action="">
+<input type="hidden" id="<% $id %>" />
+
+<h2><&|/l&>Groups the user is member of (check box to delete)</&></h2>
+
+<& /Elements/CollectionList,
+    OrderBy => 'Name',
+    Order   => 'ASC',
+    Rows    => 0,
+    BaseURL => RT->Config->Get('WebPath') .'/Admin/Users/Memberships.html?',
+    %ARGS,
+    DisplayFormat => "__CheckBox.{Delete}__,$Format",
+    Format => $Format,
+    Collection => $is_member,
+    AllowSorting => 1,
+    PassArguments => [qw(Format Rows Page Order OrderBy id)],
+&>
+
+<h2><&|/l&>Groups the user is not member of (check box to add)</&></h2>
+
+<& /Elements/CollectionList,
+    OrderBy => 'Name',
+    Order   => 'ASC',
+    Rows    => 100,
+    BaseURL => RT->Config->Get('WebPath') .'/Admin/Users/Memberships.html?',
+    %ARGS,
+    DisplayFormat => "__CheckBox.{Add}__,$Format",
+    Format => $Format,
+    Collection => $is_not_member,
+    AllowSorting => 1,
+    PassArguments => [qw(Format Rows Page Order OrderBy)],
+&>
+
+<& /Elements/Submit, Label => loc('Update'), Name => 'Update' &>
+
+</form>
 
 <%INIT>
 my $UserObj = RT::User->new($session{'CurrentUser'});
-$UserObj->Load($id) || Abort("Couldn't load user '$id'");
+$UserObj->Load( $id ) || Abort("Couldn't load user '$id'");
+
 my $title = loc("Memberships of the user [_1]", $UserObj->Name);
-my $current_tab = 'Admin/Users/Memberships.html?id='.$id;
+my $current_tab = 'Admin/Users/Memberships.html?id='. $id;
+
+my @results;
+if ( $Update ) {
+    foreach my $gid( @Add ) {
+        my $group = RT::Group->new( $session{'CurrentUser'} );
+        $group->LoadUserDefinedGroup( $gid );
+        unless ( $group->id ) {
+            push @results, loc( "Couldn't load group #[_1]", $gid );
+            next;
+        }
+        my ($status, $msg) = $group->AddMember( $id );
+        push @results, $msg;
+    }
+    foreach my $gid( @Delete ) {
+        my $group = RT::Group->new( $session{'CurrentUser'} );
+        $group->LoadUserDefinedGroup( $gid );
+        unless ( $group->id ) {
+            push @results, loc( "Couldn't load group #[_1]", $gid );
+            next;
+        }
+        my ($status, $msg) = $group->DeleteMember( $id );
+        push @results, $msg;
+    }
+}
+
+my $is_member = RT::Groups->new( $session{'CurrentUser'} );
+$is_member->LimitToUserDefinedGroups;
+$is_member->WithMember( PrincipalId => $UserObj->Id );
+
+my $is_not_member = RT::Groups->new( $session{'CurrentUser'} );
+$is_not_member->LimitToUserDefinedGroups;
+$is_not_member->WithoutMember( PrincipalId => $UserObj->Id );
+
+$Format ||= q{'<a href="__WebPath__/Admin/Groups/Modify.html?id=__id__">__id__</a>/TITLE:#'}
+    .q{,'<a href="__WebPath__/Admin/Groups/Modify.html?id=__id__">__Name__</a>/TITLE:Name'}
+    .q{,'__Description__'};
 </%INIT>
 <%ARGS>
-$id => undef
+$id     => undef
+
+$Update => 0,
+ at Add    => (),
+ at Delete => (),
+
+$Format => undef
 </%ARGS>