From: Giuseppe Bilotta Date: Fri, 24 Sep 2010 16:02:43 GMT Subject: [PATCHv5 08/12] gitweb: auxiliary function to group data Message-ID: <1285344167-8518-9-git-send-email-giuseppe.bilotta@gmail.com> In-Reply-To: <1285344167-8518-1-git-send-email-giuseppe.bilotta@gmail.com> Signed-off-by: Giuseppe Bilotta --- gitweb/gitweb.perl | 16 ++++++++++++++++ 1 files changed, 16 insertions(+), 0 deletions(-) diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl index 7c62701..8f11fb5 100755 --- a/gitweb/gitweb.perl +++ b/gitweb/gitweb.perl @@ -3786,6 +3786,22 @@ sub git_print_header_div { "\n\n"; } +sub git_group { + my ($class, $id, @rest) = @_; + + my $content_func = pop @rest; + + $class = join(' ', 'group', $class); + + print $cgi->start_div({ + -class => $class, + -id => $id, + }); + git_print_header_div(@rest); + $content_func->() if defined $content_func; + print $cgi->end_div; +} + sub print_local_time { print format_local_time(@_); } -- 1.7.3.68.g6ec8