gitweb: refactor repository URL printing

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 589cd089259bfeea1f01f233a14e855b1dbaa26a18434bd689359dc2aac17e05..85110d689472b9c22e955215b82d4555ed7280c57e69904c920e6eaf407a5031 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -3796,6 +3796,11 @@ sub git_print_header_div {
              "\n</div>\n";
 }
 
+sub format_repo_url {
+       my ($name, $url) = @_;
+       return "<tr class=\"metadata_url\"><td>$name</td><td>$url</td></tr>\n";
+}
+
 sub print_local_time {
        print format_local_time(@_);
 }
@@ -5179,7 +5184,7 @@ sub git_summary {
        @url_list = map { "$_/$project" } @git_base_url_list unless @url_list;
        foreach my $git_url (@url_list) {
                next unless $git_url;
-               print "<tr class=\"metadata_url\"><td>$url_tag</td><td>$git_url</td></tr>\n";
+               print format_repo_url($url_tag, $git_url);
                $url_tag = "";
        }