[Rt-commit] rt branch, admin_ui, updated. 7d71ae8f834ad302968f3ea797eb0af686ccb17c

[sunnavy at bestpractical.com]

The branch, admin_ui has been updated
       via  7d71ae8f834ad302968f3ea797eb0af686ccb17c (commit)
      from  91f2db64ff3e87f72575264647b904f48b4a8bab (commit)

Summary of changes:
 lib/RT/Action/EditGroupMembers.pm |  171 +++++++++++++++++++++++++++++++++++++
 1 files changed, 171 insertions(+), 0 deletions(-)
 create mode 100644 lib/RT/Action/EditGroupMembers.pm

- Log -----------------------------------------------------------------
commit 7d71ae8f834ad302968f3ea797eb0af686ccb17c
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Wed Dec 23 16:10:12 2009 +0800

    add action EditGroupMembers

diff --git a/lib/RT/Action/EditGroupMembers.pm b/lib/RT/Action/EditGroupMembers.pm
new file mode 100644
index 0000000..59ac25c
--- /dev/null
+++ b/lib/RT/Action/EditGroupMembers.pm
@@ -0,0 +1,171 @@
+
+use strict;
+use warnings;
+
+package RT::Action::EditGroupMembers;
+use base qw/RT::Action Jifty::Action/;
+use Scalar::Defer;
+
+__PACKAGE__->mk_accessors('object');
+
+sub arguments {
+    my $self = shift;
+    return {} unless $self->object;
+
+    my $args = {};
+    $args->{object_id} = {
+        render_as     => 'hidden',
+        default_value => $self->object->id,
+    };
+    $args->{object_type} = {
+        render_as     => 'hidden',
+        default_value => ref $self->object,
+    };
+
+    $args->{users} = {
+        render_as        => 'Checkboxes',
+        default_value    => defer { $self->default_value('user') },
+        available_values => defer { $self->available_values('user') },
+    };
+    $args->{groups} = {
+        render_as        => 'Checkboxes',
+        default_value    => defer { $self->default_value('group') },
+        available_values => defer { $self->available_values('group') },
+    };
+    return $args;
+}
+
+=head2 take_action
+
+=cut
+
+sub take_action {
+    my $self = shift;
+
+    my $object_type = $self->argument_value('object_type');
+    return unless $object_type;
+    if ( $RT::Model::ACE::OBJECT_TYPES{$object_type} ) {
+        my $object    = $object_type->new;
+        my $object_id = $self->argument_value('object_id');
+        $object->load($object_id);
+        unless ( $object->id ) {
+            Jifty->log->error("couldn't load $object_type #$object_id");
+            return;
+        }
+
+        $self->object($object);
+    }
+    else {
+        Jifty->log->error("object type '$object_type' is incorrect");
+        return;
+    }
+
+    for my $type (qw/user group/) {
+        my $value = $self->argument_value($type . 's');
+        my @members;
+        if ( UNIVERSAL::isa( $value, 'ARRAY' ) ) {
+            @members = @$value;
+        }
+        else {
+            @members = $value;
+        }
+        @members = grep { $_ && /^\d+$/ } @members;
+
+        my $current_members = $self->default_value($type);
+        my %current_members = map { $_ => 1 } @$current_members;
+        my %members         = map { $_ => 1 } @members;
+
+        for my $member ( keys %current_members ) {
+            next if $members{$member};
+
+            my ( $val, $msg ) =
+              $self->object->delete_member( $member );
+            Jifty->log->error($msg) unless $val;
+        }
+
+        for my $member ( keys %members ) {
+            next if $current_members{$member};
+            my ( $val, $msg ) =
+              $self->object->add_member( $member );
+            Jifty->log->error($msg) unless $val;
+        }
+    }
+
+    $self->report_success;
+    return 1;
+}
+
+=head2 report_success
+
+=cut
+
+sub report_success {
+    my $self = shift;
+
+    # Your success message here
+    $self->result->message('Success');
+}
+
+sub available_values {
+    my $self   = shift;
+    my $type   = shift || 'user';
+
+    my $collection;
+    if ( $type eq 'user' ) {
+        $collection = RT::Model::UserCollection->new;
+        $collection->limit(
+            column           => 'id',
+            value            => RT->system_user->id,
+            operator         => '!=',
+            entry_aggregator => 'AND'
+        );
+        $collection->limit(
+            column           => 'id',
+            value            => RT->nobody->id,
+            operator         => '!=',
+            entry_aggregator => 'AND'
+        );
+        $collection->limit_to_privileged();
+    }
+    else {
+        $collection = RT::Model::GroupCollection->new;
+
+        # self-recursive group membership considered harmful!
+        $collection->limit(
+            column   => 'id',
+            value    => $self->object->id,
+            operator => '!='
+        );
+        $collection->limit(
+            column   => 'domain',
+            operator => '=',
+            value    => 'UserDefined'
+        );
+    }
+    return [ map { { display => $_->name, value => $_->id } }
+          @{ $collection->items_array_ref } ];
+}
+
+sub default_value {
+    my $self = shift;
+    my $type = shift || 'user';
+    my @values;
+    if ( $type eq 'user' ) {
+        my $users = $self->object->user_members( recursively => 0 );
+        $users->order_by( column => 'name', order => 'ASC'  );
+        while ( my $user = $users->next ) {
+            push @values, $user->id;
+        }
+    }
+    else {
+        my $group_members = $self->object->members;
+        $group_members->limit_to_groups();
+        while ( my $member = $group_members->next ) {
+            push @values, $member->member_id;
+        }
+    }
+    return \@values;
+}
+
+1;
+

-----------------------------------------------------------------------