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

jnareb · Junio C Hamano · commit bd5d1e42fb8e · 2006-11-21T14:35:41.000-08:00
href subroutine by default generates absolute URL (generated using
CGI::url(-absolute=&gt;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=&gt;1)

Signed-off-by: Jakub Narebski &lt;jnareb@gmail.com&gt;
Signed-off-by: Junio C Hamano &lt;junkio@cox.net&gt;
diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
@@ -459,7 +459,8 @@ sub evaluate_path_info {
 
 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.
