# [PATCH] gitweb: Add an option to href() to return full URL

1 messages from 2006-11-09 to 2006-11-09. Participants: Jakub Narebski.
Thread: https://gitlist.dev/t/43746

## Jakub Narebski, 2006-11-09 18:56

Subject: [PATCH] gitweb: Add an option to href() to return full URL
Message-ID: <200611091956.56069.jnareb@gmail.com>
URL: https://gitlist.dev/e/200611091956.56069.jnareb%40gmail.com

```
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>
---
This is in preparation for git_rss cleanup (to use href), and further
per-branch (per-head) RSS feeds.

 gitweb/gitweb.perl |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index 8313517..f3fe4bf 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.
-- 
1.4.3.4

```