copy gitweblite soruce code
|
1 |
% use File::Basename 'basename'; |
added history page
|
2 |
<% |
fixed bug that perl 5.8 don'...
|
3 |
my $operation = stash('operation') || 'tree'; |
added history page
|
4 |
unless ($operation eq 'commits' || $operation eq 'tree') { |
5 |
$operation = 'tree'; |
|
6 |
} |
|
fixed commit page blobdiff l...
|
7 |
|
8 |
my $rev = stash('id') || stash('rev'); |
|
improved commits page design
|
9 |
my $prefix = stash('prefix'); |
fix tree bug and improve tre...
|
10 |
my $type = stash('type') || ''; |
added history page
|
11 |
%> |
copy gitweblite soruce code
|
12 | |
complete branch select desig...
|
13 |
<div class="page-path"> |
improved commits page design
|
14 |
% if ($prefix) { |
15 |
<span class="muted">History for</span> |
|
16 |
% } |
|
17 | ||
18 |
<a href="<%= url_for("/$user/$project" . ($operation eq 'commits' ? '/commits' : '')) %>"> |
|
19 |
<b><%= $project %></b> |
|
added commit datetime to man...
|
20 |
</a> |
21 |
|
|
22 |
% if (defined $Path) { |
|
23 |
/ |
|
24 |
% my @parts = split('/', $Path); |
|
25 |
% my $path; |
|
26 |
% for (my $i = 0; $i < @parts; $i++) { |
|
27 |
% my $part = $parts[$i]; |
|
28 |
% $path .= $part; |
|
29 |
|
|
fix tree bug and improve tre...
|
30 |
% if ($i == @parts - 1) { |
added commit datetime to man...
|
31 |
<b><%= $part %></b> |
32 |
% } else { |
|
33 |
<a href= |
|
34 |
"<%= url_for("/$user/$project/$operation/$rev/$path") %>"> |
|
35 |
<%= $part %> |
|
36 |
</a> |
|
37 |
% $path .= '/'; |
|
38 |
% } |
|
39 |
% unless ($type eq 'blob' && $i == @parts - 1) { |
|
40 |
/ |
|
41 |
% } |
|
copy gitweblite soruce code
|
42 |
% } |
improved commits page design
|
43 |
% } |
cleanup
|
44 |
</div> |