source: LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Groups.pm @ 884

package LATMOS::Accounts::Web::Controller::Groups;

use strict;
use warnings;
use base 'Catalyst::Controller';

=head1 NAME

LATMOS::Accounts::Web::Controller::Groups - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut


=head2 index 

=cut

sub index : Private {
    my ( $self, $c ) = @_;

    $c->stash->{ofilter} = $c->model('AttrFilter', 'group');
    $c->stash->{groupslist} = [  map { $_->id } @{ $c->stash->{objectslist} } ];
    $c->stash->{page}{title} = "Liste des groupes";

}

sub default : LocalPath {
    my ( $self, $c, undef, $groupname, $subform ) = @_;

    my $base = $c->model('Accounts')->db;

    $c->stash->{page}{title} = "Groupe :: $groupname";
    $c->stash->{groupname} = $groupname;
    $c->stash->{group} = $base->get_object('group', $groupname) or do {
        $c->forward('/no_object');
        return;
    };

    $c->stash->{subform} = $subform || '';

    for ($subform || '') {
        # Exceptions...
        /^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;
        };
        /^dpmt$/ and do {
            $c->stash->{template} = 'groups/dpmt.tt';
            my @filter = ();
            push(@filter, 'active=*') if (!$c->req->param('inactive'));
            push(@filter, 'mail=*') if ($c->req->param('mail'));
            push(@filter, 'company=' . $c->req->param('company')) if
                ($c->req->param('company'));
            $c->stash->{dpmt} = $groupname;
            $c->stash->{odpmt} = $c->stash->{group};
            $c->stash->{user} = [ $base->search_objects('user',
                    'department=' . $c->stash->{dpmt},
                    @filter,
                ) ];
            foreach my $u ($base->search_objects('user',
                    'memberOf=' . $c->stash->{dpmt},
                    @filter,
                )) {
                push(@{$c->{stash}->{guser}}, $u)
                unless(grep { $u eq $_ } @{$c->stash->{user}});
            }
            last;
        };

        $c->stash->{form} = $c->model('AttrForms', 'group' . $c->stash->{subform}, $c->stash->{group});
        $c->stash->{form}->set_attrs;
    }
}

=head1 AUTHOR

Thauvin Olivier

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;