A3C/Action/SyncOrganization.pm

use strict;
use warnings;

=head1 NAME

A3C::Action::SyncOrganization

=cut

package A3C::Action::SyncOrganization;
use base qw/A3C::Action Jifty::Action/;

use A3C::LDAP;

use Data::Dump qw/dump/;

use Jifty::Param::Schema;
use Jifty::Action schema {

        param org_uid =>
                label is _('Organization'),
                available are defer {
                        my $ldap = A3C::LDAP->new;
                        my $coll = A3C::Model::OrganizationCollection->new;
                        # unlimit, order_by works, other way around doesn't!
                        $coll->unlimit;
                        $coll->order_by( column => $ldap->link->{value_from}, order => 'ASC' );
                        [{
                                display_from => $ldap->link->{display_from},
                                value_from => $ldap->{link}->{value_from},
                                collection => $coll,
                        }];
                },
                render as 'Select';

};

sub sticky_on_success { 1 }
sub sticky_on_failure { 1 }

=head2 take_action

=cut

sub take_action {
    my $self = shift;

        if ( $self->result->success ) {

                my $ldap = A3C::LDAP->new;
                my $org_uid = $self->argument_value( 'org_uid' );
                my $person_filter = $ldap->link->{person_filter};

                my $org_class = Jifty->app_class('Model', $ldap->objectClass->{organization} );

                my $coll = $ldap->collection( $ldap->objectClass->{person}, filter => "($person_filter=$org_uid)" );

                $self->result->content( 'synced-users' => $coll );

                $self->result->message( _('Synced %1 users from %2', $coll->count, $org_uid) );

#       } else {
#               $self->result->error();
        }

    return 1;
}

1;

1	use strict;
2	use warnings;
3
4	=head1 NAME
5
6	A3C::Action::SyncOrganization
7
8	=cut
9
10	package A3C::Action::SyncOrganization;
11	use base qw/A3C::Action Jifty::Action/;
12
13	use A3C::LDAP;
14
15	use Data::Dump qw/dump/;
16
17	use Jifty::Param::Schema;
18	use Jifty::Action schema {
19
20	param org_uid =>
21	label is _('Organization'),
22	available are defer {
23	my $ldap = A3C::LDAP->new;
24	my $coll = A3C::Model::OrganizationCollection->new;
25	# unlimit, order_by works, other way around doesn't!
26	$coll->unlimit;
27	$coll->order_by( column => $ldap->link->{value_from}, order => 'ASC' );
28	[{
29	display_from => $ldap->link->{display_from},
30	value_from => $ldap->{link}->{value_from},
31	collection => $coll,
32	}];
33	},
34	render as 'Select';
35
36	};
37
38	sub sticky_on_success { 1 }
39	sub sticky_on_failure { 1 }
40
41	=head2 take_action
42
43	=cut
44
45	sub take_action {
46	my $self = shift;
47
48	if ( $self->result->success ) {
49
50	my $ldap = A3C::LDAP->new;
51	my $org_uid = $self->argument_value( 'org_uid' );
52	my $person_filter = $ldap->link->{person_filter};
53
54	my $org_class = Jifty->app_class('Model', $ldap->objectClass->{organization} );
55
56	my $coll = $ldap->collection( $ldap->objectClass->{person}, filter => "($person_filter=$org_uid)" );
57
58	$self->result->content( 'synced-users' => $coll );
59
60	$self->result->message( _('Synced %1 users from %2', $coll->count, $org_uid) );
61
62	# } else {
63	# $self->result->error();
64	}
65
66	return 1;
67	}
68
69	1;
70