A3C/Action/StrixSelectSite.pm

use strict;
use warnings;

=head1 NAME

A3C::Action::StrixSelectSite

=cut

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

use Data::Dump qw/dump/;

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

        param instance =>
                label is _('Strix instance'),
                render as 'Select',
                is mandatory;

        param site_id =>
                label is _('Strix site'),
                render as 'Select',
                is mandatory;

};

sub available_values {
        my $self = shift;
        my $field = shift;
        warn "# available_values( $field )";
        if ( $field eq 'instance' ) {
                my $coll = A3C::Model::StrixInstanceCollection->new;
                $coll->unlimit;
                $coll->order_by( column => 'instance' );

                my $vv = [];
                while ( my $i = $coll->next ) {
                        push @$vv, {
                                display => ( $i->_site_name || '['.$i->instance.']' ),
                                value => $i->instance,
                        };
                }
                #warn "# $field vv = ",dump( $vv );
                return $vv;
        } elsif ( $field eq 'site_id' ) {
                my $instance = $self->argument_value('instance');

                my $coll = A3C::Model::StrixSiteCollection->new;
                $coll->limit( column => 'instance', value => $instance );

                return [{ display => _('No sites') }] unless $coll->count;

                warn "# intance $instance as ",$coll->count," sites\n";

                my $vv = [];
                while ( my $i = $coll->next ) {
                        push @$vv, {
                                display => $i->naziv,
                                value => $i->site_id,
                        };
                        warn $i->site_id;
                }
                warn "# $field vv = ",dump( $vv );
                return $vv;
        } else {
                die "unknown field $field";
        }
}

sub sticky_on_success { 1 }
sub sticky_on_failure { 1 }

=head2 take_action

=cut

sub take_action {
    my $self = shift;
    
    if ( $self->result->success ) {
        $self->result->message(
                        _("Selected instance %1 site %2",
                                $self->argument_value('instance'),
                                $self->argument_value('site_id')
                        )
                );
                # XXX we can't really set two content fields in one pass!!
                $self->result->content( 'instance' => $self->argument_value('instance') );
                $self->result->content( 'site_id' => $self->argument_value('site_id') );
        }
 
    return 1;
}

1;
1	use strict;
2	use warnings;
3
4	=head1 NAME
5
6	A3C::Action::StrixSelectSite
7
8	=cut
9
10	package A3C::Action::StrixSelectSite;
11	use base qw/A3C::Action Jifty::Action/;
12
13	use Data::Dump qw/dump/;
14
15	use Jifty::Param::Schema;
16	use Jifty::Action schema {
17
18	param instance =>
19	label is _('Strix instance'),
20	render as 'Select',
21	is mandatory;
22
23	param site_id =>
24	label is _('Strix site'),
25	render as 'Select',
26	is mandatory;
27
28	};
29
30	sub available_values {
31	my $self = shift;
32	my $field = shift;
33	warn "# available_values( $field )";
34	if ( $field eq 'instance' ) {
35	my $coll = A3C::Model::StrixInstanceCollection->new;
36	$coll->unlimit;
37	$coll->order_by( column => 'instance' );
38
39	my $vv = [];
40	while ( my $i = $coll->next ) {
41	push @$vv, {
42	display => ( $i->_site_name \|\| '['.$i->instance.']' ),
43	value => $i->instance,
44	};
45	}
46	#warn "# $field vv = ",dump( $vv );
47	return $vv;
48	} elsif ( $field eq 'site_id' ) {
49	my $instance = $self->argument_value('instance');
50
51	my $coll = A3C::Model::StrixSiteCollection->new;
52	$coll->limit( column => 'instance', value => $instance );
53
54	return [{ display => _('No sites') }] unless $coll->count;
55
56	warn "# intance $instance as ",$coll->count," sites\n";
57
58	my $vv = [];
59	while ( my $i = $coll->next ) {
60	push @$vv, {
61	display => $i->naziv,
62	value => $i->site_id,
63	};
64	warn $i->site_id;
65	}
66	warn "# $field vv = ",dump( $vv );
67	return $vv;
68	} else {
69	die "unknown field $field";
70	}
71	}
72
73	sub sticky_on_success { 1 }
74	sub sticky_on_failure { 1 }
75
76	=head2 take_action
77
78	=cut
79
80	sub take_action {
81	my $self = shift;
82
83	if ( $self->result->success ) {
84	$self->result->message(
85	_("Selected instance %1 site %2",
86	$self->argument_value('instance'),
87	$self->argument_value('site_id')
88	)
89	);
90	# XXX we can't really set two content fields in one pass!!
91	$self->result->content( 'instance' => $self->argument_value('instance') );
92	$self->result->content( 'site_id' => $self->argument_value('site_id') );
93	}
94
95	return 1;
96	}
97
98	1;