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	dpavlin	55	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	dpavlin	106	use Data::Dump qw/dump/;
16
17	dpavlin	55	use Jifty::Param::Schema;
18			use Jifty::Action schema {
19
20	dpavlin	106	param org_uid =>
21	dpavlin	55	label is _('Organization'),
22			available are defer {
23	dpavlin	106	my $ldap = A3C::LDAP->new;
24	dpavlin	55	my $coll = A3C::Model::OrganizationCollection->new;
25			# unlimit, order_by works, other way around doesn't!
26			$coll->unlimit;
27	dpavlin	106	$coll->order_by( column => $ldap->link->{value_from}, order => 'ASC' );
28	dpavlin	55	[{
29	dpavlin	106	display_from => $ldap->link->{display_from},
30			value_from => $ldap->{link}->{value_from},
31	dpavlin	55	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	dpavlin	106	my $org_uid = $self->argument_value( 'org_uid' );
52			my $person_filter = $ldap->link->{person_filter};
53	dpavlin	55
54	dpavlin	106	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	dpavlin	55	$self->result->content( 'synced-users' => $coll );
59
60	dpavlin	106	$self->result->message( _('Synced %1 users from %2', $coll->count, $org_uid) );
61	dpavlin	55
62			# } else {
63			# $self->result->error();
64			}
65
66			return 1;
67			}
68
69			1;
70