/[SVNBrowser]/trunk/lib/SVNBrowser/View.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/View.pm

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

revision 76 by dpavlin, Thu Jan 31 22:41:30 2008 UTC revision 77 by dpavlin, Wed Feb 6 12:46:50 2008 UTC
# Line 81  template '/x-list' => page { Line 81  template '/x-list' => page {
81                  my $rel_path = get('rel_path') || $filter->argument_value('rel_path');                  my $rel_path = get('rel_path') || $filter->argument_value('rel_path');
82                  warn "### show_actions = $show_actions";                  warn "### show_actions = $show_actions";
83    
84                    show_revisions_actions( $filter, $revisions );
85    
86                    pager( $filter, $revisions );
87    
88            }; #form
89    
90    };
91    
92    sub show_revisions_actions {
93            warn "### show_revisions_actions ",dump( @_ );
94            my ( $filter, $revisions ) = @_;
95    
96                  dl {                  dl {
97                          attr { class => 'results' };                          attr { class => 'results' };
98    
# Line 95  template '/x-list' => page { Line 107  template '/x-list' => page {
107                                  dd {                                  dd {
108                                          pre { attr { class => 'commit_message' } $r->message };                                          pre { attr { class => 'commit_message' } $r->message };
109    
110                                          if ( $show_actions ) {                                          warn "### rel_path ", $filter->argument_value('rel_path'), " path: ", $filter->argument_value('path');
111                                                  my $actions = SVNBrowser::Model::ActionCollection->new();  
112                                                  $actions->unlimit;                                          my $actions = SVNBrowser::Model::ActionCollection->new();
113                                                  $actions->limit( column => 'revision', value => $r->revision );                                          $actions->unlimit;
114                                                  $actions->limit( column => 'rel_path', value => $rel_path, operator => 'STARTSWITH' ) if ($rel_path);                                          $actions->limit( column => 'revision', value => $r->revision );
115                                                  $actions->limit( column => 'rel_path', value => $filter->argument_value('path'), operator => 'MATCHES' );                                          $actions->limit( column => 'rel_path', value => $filter->argument_value('rel_path'), operator => 'STARTSWITH' )
116                                                    if $filter->argument_value('rel_path');
117                                                  ul { attr { class => 'actions' };                                          $actions->limit( column => 'rel_path', value => $filter->argument_value('path'), operator => 'MATCHES' )
118                                                          while (my $a = $actions->next) {                                                  if $filter->argument_value('path');
119                                                                  li {  
120                                                                          tt { attr { class => 'action-' . $a->type }                                          warn "### actions SQL query ", $actions->build_select_query;
121                                                                                  outs (  
122                                                                                          $a->type, ' ',                                          ul { attr { class => 'actions' };
123                                                                                          $a->branch                                                  while (my $a = $actions->next) {
124                                                                                  );                                                          li {
125                                                                                  hyperlink(                                                                  tt { attr { class => 'action-' . $a->type }
126                                                                                          label => $a->rel_path,                                                                          outs (
127                                                                                          parameters => {                                                                                  $a->type, ' ',
128                                                                                                  rel_path => $a->rel_path,                                                                                  $a->branch
129                                                                                          }                                                                          );
130                                                                                  );                                                                          hyperlink(
131                                                                          }                                                                                  label => $a->rel_path,
132                                                                                    parameters => {
133                                                                                            rel_path => $a->rel_path,
134                                                                                    }
135                                                                            );
136                                                                  }                                                                  }
137                                                          }                                                          }
138                                                  }                                                  }
# Line 124  template '/x-list' => page { Line 140  template '/x-list' => page {
140                                  }                                  }
141                          }                                }      
142                  }                  }
   
                 pager( $filter, $revisions );  
   
143          }          }
   
         }; #form  
   
144  };  };
145    

Legend:
Removed from v.76  
changed lines
  Added in v.77

  ViewVC Help
Powered by ViewVC 1.1.26