SQLSession/Action/DoSQL.pm

use strict;
use warnings;

=head1 NAME

SQLSession::Action::DoSQL

=cut

package SQLSession::Action::DoSQL;
use base qw/SQLSession::Action Jifty::Action/;

use SQLSession::Model::DatabaseCollection;
use Data::Dump qw/dump/;

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

        param sql_query =>
                label is 'SQL',
                is mandatory;
        
        param database =>
                label is 'Database',
                render as 'Select',
#               available are qw( test foo bar );
                available are defer {
                        my $dbs = SQLSession::Model::DatabaseCollection->new;
                        $dbs->unlimit;
                        [{
                                display_from => 'name',
                                value_from => 'name',
                                collection => $dbs,
                        }];
                };

};

=head2 take_action

=cut

sub take_action {
    my $self = shift;
    
    # Custom action code
    
    $self->report_success if not $self->result->failure;
    
    return 1;
}

=head2 report_success

=cut

sub report_success {
    my $self = shift;
    # Your success message here
    $self->result->message('Success');
}

1;

1	use strict;
2	use warnings;
3
4	=head1 NAME
5
6	SQLSession::Action::DoSQL
7
8	=cut
9
10	package SQLSession::Action::DoSQL;
11	use base qw/SQLSession::Action Jifty::Action/;
12
13	use SQLSession::Model::DatabaseCollection;
14	use Data::Dump qw/dump/;
15
16	use Jifty::Param::Schema;
17	use Jifty::Action schema {
18
19	param sql_query =>
20	label is 'SQL',
21	is mandatory;
22
23	param database =>
24	label is 'Database',
25	render as 'Select',
26	# available are qw( test foo bar );
27	available are defer {
28	my $dbs = SQLSession::Model::DatabaseCollection->new;
29	$dbs->unlimit;
30	[{
31	display_from => 'name',
32	value_from => 'name',
33	collection => $dbs,
34	}];
35	};
36
37	};
38
39	=head2 take_action
40
41	=cut
42
43	sub take_action {
44	my $self = shift;
45
46	# Custom action code
47
48	$self->report_success if not $self->result->failure;
49
50	return 1;
51	}
52
53	=head2 report_success
54
55	=cut
56
57	sub report_success {
58	my $self = shift;
59	# Your success message here
60	$self->result->message('Success');
61	}
62
63	1;
64