gitweb: add a "string" variant of print_sort_th

Add a function (named format_sort_th) that returns the string that
print_sort_th would print.

Signed-off-by: John 'Warthog9' Hawley <warthog9@kernel.org>
Signed-off-by: Jakub Narebski <jnareb@gmail.com>
Signed-off-by: Junio C Hamano <gitster@pobox.com>

diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index debaf55e82a56326e89428bcd019d669d68a6d1d..466fa8aad49236b23bde655a6276663e5f43626b 100755 (executable)
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
@@ -4347,17 +4347,24 @@ sub fill_project_list_info {
 # print 'sort by' <th> element, generating 'sort by $name' replay link
 # if that order is not selected
 sub print_sort_th {
 # print 'sort by' <th> element, generating 'sort by $name' replay link
 # if that order is not selected
 sub print_sort_th {

+       print format_sort_th(@_);
+}
+
+sub format_sort_th {

        my ($name, $order, $header) = @_;
        my ($name, $order, $header) = @_;

+       my $sort_th = "";

        $header ||= ucfirst($name);
 
        if ($order eq $name) {
        $header ||= ucfirst($name);
 
        if ($order eq $name) {

-               print "<th>$header</th>\n";
+               $sort_th .= "<th>$header</th>\n";

        } else {
        } else {

-               print "<th>" .
-                     $cgi->a({-href => href(-replay=>1, order=>$name),
-                              -class => "header"}, $header) .
-                     "</th>\n";
+               $sort_th .= "<th>" .
+                           $cgi->a({-href => href(-replay=>1, order=>$name),
+                                    -class => "header"}, $header) .
+                           "</th>\n";

        }
        }

+
+       return $sort_th;

 }
 
 sub git_project_list_body {
 }
 
 sub git_project_list_body {