/[SVNBrowser]/trunk/lib/SVNBrowser/Action/Filter.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/SVNBrowser/Action/Filter.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 5 by dpavlin, Tue Dec 5 15:08:46 2006 UTC revision 49 by dpavlin, Thu Feb 8 21:57:20 2007 UTC
# Line 24  use Jifty::Action schema { Line 24  use Jifty::Action schema {
24                                  function => 'distinct',                                  function => 'distinct',
25                          );                          );
26                          $authors->unlimit;                          $authors->unlimit;
27                            $authors->order_by({ column => 'author', order => 'ASC' });
28                            warn "authors ", $authors->build_select_query;
29                          [{                          [{
30                                  display_from => 'author',                                  display_from => 'author',
31                                  value_from => 'author',                                  value_from => 'author',
# Line 31  use Jifty::Action schema { Line 33  use Jifty::Action schema {
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 rel_path =>
56                    label is 'Path begins with';
57    
58            param show_actions =>
59                    label is 'Show file actions',
60                    render as 'checkbox',
61                    default is 1;
62    
63            param page =>
64                    label is 'Current page';
65    
66            param per_page =>
67                    label is 'Commits on page',
68                    render as 'Select',
69                    available are qw( 10 20 30 50 100 ),
70                    default is 10;
71    
72            param from_date =>
73                    label is 'From date',
74                    render as 'Date';
75    
76            param to_date =>
77                    label is 'To date',
78                    render as 'Date';
79    
80            param search =>
81                    label is 'Search in messages';
82    
83  };  };
84    
85  sub sticky_on_success { 1; }  sub sticky_on_success { 1; }
# Line 42  sub sticky_on_success { 1; } Line 91  sub sticky_on_success { 1; }
91  sub take_action {  sub take_action {
92      my $self = shift;      my $self = shift;
93            
94          my $author = $self->argument_value('author');          my $revisions = SVNBrowser::Model::RevisionCollection->new();
95          warn "author: $author\n";          $revisions->unlimit();
96        
97      $self->result->message('Success');          if ( my $author = $self->argument_value('author') ) {
98                        $revisions->limit( column => 'author', value => $author, entry_aggregator => 'AND' );
99            }
100    
101            if ( my $from_date = $self->argument_value('from_date') ) {
102                    $revisions->limit( column => 'commit_date', operator => '>=', value => $from_date, entry_aggregator => 'AND', case_sensitive => 1 );
103            }
104    
105            if ( my $to_date = $self->argument_value('to_date') ) {
106                    $revisions->limit( column => 'commit_date', operator => '<=', value => $to_date, entry_aggregator => 'AND', case_sensitive => 1 );
107            }
108    
109            if ( my $search = $self->argument_value('search') ) {
110                    $revisions->limit( column => 'message', operator => 'LIKE', value => '%' . $search . '%' );
111            }
112    
113            if ( my $branch = $self->argument_value('branch') ) {
114                    my $b = SVNBrowser::Model::Branch->new();
115                    $b->load_by_cols( path => $branch );
116    
117                    my $rev_branches = $revisions->join(
118                            alias1 => 'main', column1 => 'revision',
119                            table2 => 'revision_branches', column2 => 'revision'
120                    );
121                    $revisions->limit( alias => $rev_branches, column => 'branch', value => $b->id );
122            }
123    
124            if ( my $rel_path = $self->argument_value('rel_path') ) {
125                    my $rev_actions = $revisions->join(
126                            alias1 => 'main', column1 => 'revision',
127                            table2 => 'actions', column2 => 'revision'
128                    );
129                    $revisions->limit( alias => $rev_actions, column => 'rel_path', value => $rel_path, operator => 'STARTSWITH' );
130            }
131    
132            $revisions->order_by({ column => 'commit_date', order => 'desc' });
133            $revisions->set_page_info(
134                    current_page => $self->argument_value('page'),
135                    per_page => $self->argument_value('per_page') || 10,
136            );
137    
138            warn "take_action SQL: ", $revisions->build_select_query;
139    
140            $revisions->goto_first_item;
141    
142            my $msg = '';
143            if (my $nr = $revisions->pager->total_entries) {
144                            $msg .= "Found $nr revisions";
145            } else {
146                            $msg .= "No revisions found";
147            }
148    
149        $self->result->message($msg);
150    
151            $self->result->content( revisions => $revisions );
152    
153      return 1;      return 1;
154  }  }
155    
Legend:
Removed from v.5  
changed lines
  Added in v.49
  ViewVC Help
Powered by ViewVC 1.1.26