From: Jakub Narebski <jnareb@gmail.com>
Date: Sun, 19 Nov 2006 14:05:21 +0000 (+0100)
Subject: gitweb: Add an option to href() to return full URL
X-Git-Tag: v1.5.0-rc0~229^2~2
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=bd5d1e42fb8edffa4e35d1257f648d586b2d054c;p=git.git

gitweb: Add an option to href() to return full URL

href subroutine by default generates absolute URL (generated using
CGI::url(-absolute=>1), and saved in $my_uri) using $my_uri as base;
add an option to generate full URL using $my_url as base.

New feature usage: href(..., -full=>1)

Signed-off-by: Jakub Narebski <jnareb@gmail.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
---

diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index 5875ba084..873950126 100755
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
@@ -459,7 +459,8 @@ exit;
 
 sub href(%) {
 	my %params = @_;
-	my $href = $my_uri;
+	# default is to use -absolute url() i.e. $my_uri
+	my $href = $params{-full} ? $my_url : $my_uri;
 
 	# XXX: Warning: If you touch this, check the search form for updating,
 	# too.