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;
                        [{
                                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;
                        [{
                                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	dpavlin	5	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			[{
28			display_from => 'author',
29			value_from => 'author',
30			collection => $authors,
31			}];
32			};
33
34	dpavlin	26	param branch =>
35			label is 'In branch',
36			render as 'combobox',
37			available are defer {
38			my $branches = SVNBrowser::Model::BranchCollection->new;
39			$branches->column(
40			column => 'path',
41			function => 'distinct',
42			);
43			$branches->unlimit;
44			[{
45			display_from => 'path',
46			value_from => 'path',
47			collection => $branches,
48			}];
49			};
50
51	dpavlin	10	param show_actions =>
52			label is 'Show file actions',
53			render as 'checkbox';
54
55	dpavlin	13	param page =>
56			label is 'Current page';
57
58			param per_page =>
59			label is 'Commits on page',
60			render as 'Select',
61			available are qw( 10 20 30 50 100 );
62
63	dpavlin	14	param from_date =>
64			label is 'From date',
65			render as 'Date';
66
67			param to_date =>
68			label is 'To date',
69			render as 'Date';
70
71	dpavlin	19	param search =>
72			label is 'Search in messages';
73	dpavlin	14
74	dpavlin	5	};
75
76			sub sticky_on_success { 1; }
77
78			=head2 take_action
79
80			=cut
81
82			sub take_action {
83			my $self = shift;
84
85			my $author = $self->argument_value('author');
86	dpavlin	10	my $msg = '';
87			$msg .= "Showing only commits for $author" if ($author);
88	dpavlin	14	$msg .= ( $msg ? ' and file actions' : 'Showing file actions for each commit' ) if ( $self->argument_value('show_actions') );
89	dpavlin	10	$self->result->message($msg) if ($msg);
90	dpavlin	5
91			return 1;
92			}
93
94
95			1;
96