SVNBrowser/Action/Filter.pm

use strict;
use warnings;

=head1 NAME

SVNBrowser::Action::Filter

=cut

package SVNBrowser::Action::Filter;
use base qw/SVNBrowser::Action Jifty::Action/;

use Data::Dump qw/dump/;

use Jifty::Param::Schema;
use Jifty::Action schema {
        param author =>
                label is 'Developer login',
                render as 'combobox',
                available are defer {
                        my $authors = SVNBrowser::Model::RevisionCollection->new;
                        $authors->column(
                                column => 'author',
                                function => 'distinct',
                        );
                        $authors->unlimit;
                        $authors->order_by({ column => 'author', order => 'ASC' });
                        warn "authors ", $authors->build_select_query;
                        [{
                                display_from => 'author',
                                value_from => 'author',
                                collection => $authors,
                        }];
                };

        param branch =>
                label is 'In branch',
                render as 'combobox',
                available are defer {
                        my $branches = SVNBrowser::Model::BranchCollection->new;
                        $branches->column(
                                column => 'path',
                                function => 'distinct',
                        );
                        $branches->unlimit;
                        $branches->order_by({ column => 'path', order => 'ASC' });
                        warn "branches ", $branches->build_select_query;
                        [{
                                display_from => 'path',
                                value_from => 'path',
                                collection => $branches,
                        }];
                };

        param show_actions =>
                label is 'Show file actions',
                render as 'checkbox';

        param page =>
                label is 'Current page';

        param per_page =>
                label is 'Commits on page',
                render as 'Select',
                available are qw( 10 20 30 50 100 );

        param from_date =>
                label is 'From date',
                render as 'Date';

        param to_date =>
                label is 'To date',
                render as 'Date';

        param search =>
                label is 'Search in messages';

};

sub sticky_on_success { 1; }

=head2 take_action

=cut

sub take_action {
    my $self = shift;
    
        my $author = $self->argument_value('author');
        my $msg = '';
        $msg .= "Showing only commits for $author" if ($author);
        $msg .= ( $msg ? ' and file actions' : 'Showing file actions for each commit' ) if ( $self->argument_value('show_actions') );
    $self->result->message($msg) if ($msg);
    
    return 1;
}


1;

1	use strict;
2	use warnings;
3
4	=head1 NAME
5
6	SVNBrowser::Action::Filter
7
8	=cut
9
10	package SVNBrowser::Action::Filter;
11	use base qw/SVNBrowser::Action Jifty::Action/;
12
13	use Data::Dump qw/dump/;
14
15	use Jifty::Param::Schema;
16	use Jifty::Action schema {
17	param author =>
18	label is 'Developer login',
19	render as 'combobox',
20	available are defer {
21	my $authors = SVNBrowser::Model::RevisionCollection->new;
22	$authors->column(
23	column => 'author',
24	function => 'distinct',
25	);
26	$authors->unlimit;
27	$authors->order_by({ column => 'author', order => 'ASC' });
28	warn "authors ", $authors->build_select_query;
29	[{
30	display_from => 'author',
31	value_from => 'author',
32	collection => $authors,
33	}];
34	};
35
36	param branch =>
37	label is 'In branch',
38	render as 'combobox',
39	available are defer {
40	my $branches = SVNBrowser::Model::BranchCollection->new;
41	$branches->column(
42	column => 'path',
43	function => 'distinct',
44	);
45	$branches->unlimit;
46	$branches->order_by({ column => 'path', order => 'ASC' });
47	warn "branches ", $branches->build_select_query;
48	[{
49	display_from => 'path',
50	value_from => 'path',
51	collection => $branches,
52	}];
53	};
54
55	param show_actions =>
56	label is 'Show file actions',
57	render as 'checkbox';
58
59	param page =>
60	label is 'Current page';
61
62	param per_page =>
63	label is 'Commits on page',
64	render as 'Select',
65	available are qw( 10 20 30 50 100 );
66
67	param from_date =>
68	label is 'From date',
69	render as 'Date';
70
71	param to_date =>
72	label is 'To date',
73	render as 'Date';
74
75	param search =>
76	label is 'Search in messages';
77
78	};
79
80	sub sticky_on_success { 1; }
81
82	=head2 take_action
83
84	=cut
85
86	sub take_action {
87	my $self = shift;
88
89	my $author = $self->argument_value('author');
90	my $msg = '';
91	$msg .= "Showing only commits for $author" if ($author);
92	$msg .= ( $msg ? ' and file actions' : 'Showing file actions for each commit' ) if ( $self->argument_value('show_actions') );
93	$self->result->message($msg) if ($msg);
94
95	return 1;
96	}
97
98
99	1;
100