- $lxdebug->leave_sub();
-}
-
-sub add_to_group {
- $lxdebug->enter_sub();
-
- $form->isblank('user_id_not_in_group', $locale->text('No user has been selected.'));
-
- my $groups = $auth->read_groups();
-
- if (!$form->{group_id} || !$groups->{$form->{group_id}}) {
- $form->show_generic_error($locale->text('No group has been selected, or the group does not exist anymore.'));
- }
-
- $group = $groups->{$form->{group_id}};
- $group->{members} = [ uniq @{ $group->{members} }, $form->{user_id_not_in_group} ];
-
- $auth->save_group($group);
-
- $form->{message} = $locale->text('The user has been added to this group.');
- edit_group();
-
- $lxdebug->leave_sub();
-}
-
-sub remove_from_group {
- $lxdebug->enter_sub();
-
- $form->isblank('user_id_in_group', $locale->text('No user has been selected.'));
-
- my $groups = $auth->read_groups();
-
- if (!$form->{group_id} || !$groups->{$form->{group_id}}) {
- $form->show_generic_error($locale->text('No group has been selected, or the group does not exist anymore.'));
- }
-
- $group = $groups->{$form->{group_id}};
- $group->{members} = [ uniq grep { $_ ne $form->{user_id_in_group} } @{ $group->{members} } ];
-
- $auth->save_group($group);
-
- $form->{message} = $locale->text('The user has been removed from this group.');
- edit_group();
-
- $lxdebug->leave_sub();