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	dpavlin	197	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;