sub format_repo_url {
my ($name, $url) = @_;
- return "<tr class=\"metadata_url\"><td>$name</td><td>$url</td></tr>\n";
+ return "<tr class=\"metadata_url\"><td>$name</td><td><a href=\"$url\">$url</a></td></tr>\n";
}
# Group output by placing it in a DIV element and adding a header.
print "<div class=\"page_path\">";
+ my $pretty_project = $project;
+ $pretty_project =~ s/\/\.git$//;
print $cgi->a({-href => href(action=>"tree", hash_base=>$hb),
- -title => 'tree root'}, to_utf8("[$project]"));
+ -title => 'tree root'}, to_utf8("[$pretty_project]"));
print " / ";
if (defined $name) {
my @dirname = split '/', $name;
}
print "</td>\n";
}
+ my $pretty_path = $pr->{'path'};
+ $pretty_path =~ s/\/\.git$//;
print "<td>" . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),
-class => "list"},
- esc_html_match_hl($pr->{'path'}, $search_regexp)) .
+ esc_html_match_hl($pretty_path, $search_regexp)) .
"</td>\n" .
"<td>" . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),
-class => "list",
# use per project git URL list in $projectroot/$project/cloneurl
# or make project git URL from git base URL and project name
- my $url_tag = "URL";
+ my $url_tag = "clone URL";
my @url_list = git_get_project_url_list($project);
@url_list = map { "$_/$project" } @git_base_url_list unless @url_list;
foreach my $git_url (@url_list) {
next unless $git_url;
+ $git_url =~ s/\.git$//;
print format_repo_url($url_tag, $git_url);
$url_tag = "";
}