gitweb: Easier adding/changing parameters to current URL

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index dd81a9e60d618c60244dc8c3a508eb8c9f423331c1668e9c01afb2ec4cf53ed0..c738fa999b4fae7fa297aea6538e22988ea85ef17b9d5c1d6d332640416ffe30 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -612,6 +612,15 @@ sub href(%) {
        );
        my %mapping = @mapping;
 
+       if ($params{-replay}) {
+               while (my ($name, $symbol) = each %mapping) {
+                       if (!exists $params{$name}) {
+                               # to allow for multivalued params we use arrayref form
+                               $params{$name} = [ $cgi->param($symbol) ];
+                       }
+               }
+       }
+
        $params{'project'} = $project unless exists $params{'project'};
 
        my ($use_pathinfo) = gitweb_check_feature('pathinfo');