+#=====================================================================
+# LX-Office ERP
+# Copyright (C) 2004
+# Based on SQL-Ledger Version 2.1.9
+# Web http://www.lx-office.org
+#
+#=====================================================================
+# SQL-Ledger Accounting
+# Copyright (c) 2002
+#
+# Author: Moritz Bunkus
+# Email: mbunkus@linet-services.de
+# Web: www.linet-services.de
+#
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+#======================================================================
+#
+# group administration module
+# add/edit/delete user groups
+#
+#======================================================================
+
+use List::MoreUtils qw(uniq);
+
+use strict;
+
sub edit_groups {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
- my @groups = sort { lc $a->{name} cmp lc $b->{name} } values %{ $auth->read_groups() };
+ my @groups = sort { lc $a->{name} cmp lc $b->{name} } values %{ $main::auth->read_groups() };
$form->header();
print $form->parse_html_template("admin/edit_groups", { 'GROUPS' => \@groups,
'num_groups' => scalar @groups });
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub add_group {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my $locale = $main::locale;
delete $form->{group_id};
$form->{message} = $locale->text("The group has been added.");
save_group();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub save_group {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my $locale = $main::locale;
$form->isblank('name', $locale->text('The group name is missing.'));
- my $groups = $auth->read_groups();
+ my $groups = $main::auth->read_groups();
+ my %users = map { ( $_->{id} => 1 ) } values %{ { $::auth->read_all_users() } };
foreach my $group (values %{$groups}) {
if (($form->{group_id} != $group->{id})
$group->{name} = $form->{name};
$group->{description} = $form->{description};
- $group->{rights} = {};
-
- map { $group->{rights}->{$_} = $form->{"${_}_granted"} ? 1 : 0 } SL::Auth::all_rights();
+ $group->{rights} = { map { ( $_ => $form->{"${_}_granted"} ? 1 : 0 ) } SL::Auth::all_rights() };
+ $group->{members} = [ grep { $users{$_} } @{ $form->{user_ids} || [] } ];
my $is_new = !$form->{group_id};
- $auth->save_group($group);
+ $main::auth->save_group($group);
$form->{message} ||= $locale->text('The group has been saved.');
edit_group();
}
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub edit_group {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
- my $groups = $auth->read_groups();
+ my $form = $main::form;
+ my $locale = $main::locale;
+
+ my $groups = $main::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}};
-
- my %all_users = $auth->read_all_users();
- my %users_by_id = map { $_->{id} => $_ } values %all_users;
-
- my @members = sort { lc $a->{login} cmp lc $b->{login} } @users_by_id{ @{ $group->{members} } };
-
- my %grouped = map { $_ => 1 } @{ $group->{members} };
- my @non_members = sort { lc $a->{login} cmp lc $b->{login} } grep { !$grouped{$_->{id}} } values %all_users;
-
- my @rights = map {
+ my $group = $groups->{$form->{group_id}};
+ my %all_users = $main::auth->read_all_users();
+ my @rights = map {
{ "right" => $_->[0],
"description" => $_->[1],
"is_section" => '--' eq substr($_->[0], 0, 2),
} SL::Auth::all_rights_full();
$form->header();
- print $form->parse_html_template("admin/edit_group", { "USERS_IN_GROUP" => \@members,
- "USERS_NOT_IN_GROUP" => \@non_members,
+ print $form->parse_html_template("admin/edit_group", { ALL_USERS => [ values %all_users ],
+ USER_IDS_IN_GROUP => $group->{members},
"RIGHTS" => \@rights,
"name" => $group->{name},
"description" => $group->{description} });
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub delete_group {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my $locale = $main::locale;
- my $groups = $auth->read_groups();
+ my $groups = $main::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."));
}
if ($form->{confirmed}) {
- $auth->delete_group($form->{"group_id"});
+ $main::auth->delete_group($form->{"group_id"});
$form->{message} = $locale->text("The group has been deleted.");
edit_groups();
print $form->parse_html_template("admin/delete_group_confirm", $groups->{$form->{group_id}});
}
- $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}};
- push @{ $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} = [ 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();
+ $main::lxdebug->leave_sub();
}
sub edit_group_membership {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
- my %users = $auth->read_all_users();
- my $groups = $auth->read_groups();
+ my $form = $main::form;
+ my $locale = $main::locale;
+
+ my %users = $main::auth->read_all_users();
+ my $groups = $main::auth->read_groups();
$groups = [ sort { lc $a->{name} cmp lc $b->{name} } values %{ $groups } ];
my @headings = map { { 'title' => $_ } } map { $_->{name} } @{ $groups };
$form->header();
print $form->parse_html_template('admin/edit_group_membership', { 'HEADINGS' => \@headings, 'USERS' => \@rows });
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub save_group_membership {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my $locale = $main::locale;
- my %users = $auth->read_all_users();
- my $groups = $auth->read_groups();
+ my %users = $main::auth->read_all_users();
+ my $groups = $main::auth->read_groups();
foreach my $group (values %{ $groups }) {
$group->{members} = [ ];
push @{ $group->{members} }, $user->{id} if ($form->{"u_$user->{id}_g_$group->{id}"});
}
- $auth->save_group($group);
+ $main::auth->save_group($group);
}
$form->{message} = $locale->text('The group memberships have been saved.');
edit_groups();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
1;
projects / kivitendo-erp.git / blobdiff