diff options
| author | Jakub Narebski <jnareb@gmail.com> | 2006-11-19 15:05:21 +0100 |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2006-11-21 14:35:41 -0800 |
| commit | bd5d1e42fb8edffa4e35d1257f648d586b2d054c (patch) | |
| tree | 34cb3f994add04828dd280614c46b01a7ce3ff66 /gitweb/gitweb.perl | |
| parent | 59e3b14e08bf309baa692bf251b2cedcde131308 (diff) | |
| download | git-bd5d1e42fb8edffa4e35d1257f648d586b2d054c.tar.gz git-bd5d1e42fb8edffa4e35d1257f648d586b2d054c.tar.xz | |
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>
Diffstat (limited to 'gitweb/gitweb.perl')
| -rwxr-xr-x | gitweb/gitweb.perl | 3 |
1 files changed, 2 insertions, 1 deletions
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. |