Changeset 217 for LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Groups.pm

Timestamp:

05/31/09 20:27:32 (15 years ago)

Author:

nanardon

Message:

• improve group management

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Groups.pm (modified) (1 diff)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Groups.pm

@@ -48 +48 @@
         /^users$/ and do {
             $c->stash->{template} = 'groups/users.tt';
+
+            my %ingroup = map { $_ => 1 } @{ $c->stash->{group}->get_c_field('memberUID') };
+            if ($c->req->param('adduser')) {
+                $c->stash->{group}->set_c_fields('memberUID' => [ (keys %ingroup), $c->req->param('adduser') ]);
+                $c->stash->{group}->base->commit;
+                %ingroup = map { $_ => 1 } @{ $c->stash->{group}->get_c_field('memberUID') };
+            } elsif ($c->req->param('deluser')) {
+                $c->stash->{group}->set_c_fields('memberUID',
+                    [ grep { $_ ne $c->req->param('deluser') } keys %ingroup ]
+                );
+                $c->stash->{group}->base->commit;
+                %ingroup = map { $_ => 1 } @{ $c->stash->{group}->get_c_field('memberUID') };
+            }
+
+            $c->stash->{add_user_list} = [ grep { ! $ingroup{$_} } $base->list_objects('user') ];
             last;
         };