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 |
|
|
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 |
} |
} |
140 |
} |
} |
141 |
} |
} |
142 |
} |
} |
|
|
|
|
pager( $filter, $revisions ); |
|
|
|
|
143 |
} |
} |
|
|
|
|
}; #form |
|
|
|
|
144 |
}; |
}; |
145 |
|
|