@@ -52,7 +52,7 @@ sub evaluate_uri {
52
52
# as base URL.
53
53
# Therefore, if we needed to strip PATH_INFO, then we know that we have
54
54
# to build the base URL ourselves:
55
- our $path_info = $ENV {" PATH_INFO" };
55
+ our $path_info = decode_utf8( $ENV {" PATH_INFO" }) ;
56
56
if ($path_info ) {
57
57
if ($my_url =~ s ,\Q$path_info \E$, , &&
58
58
$my_uri =~ s ,\Q$path_info \E$, , &&
@@ -817,9 +817,9 @@ sub evaluate_query_params {
817
817
818
818
while (my ($name , $symbol ) = each %cgi_param_mapping ) {
819
819
if ($symbol eq ' opt' ) {
820
- $input_params {$name } = [ $cgi -> param($symbol ) ];
820
+ $input_params {$name } = [ map { decode_utf8( $_ ) } $cgi -> param($symbol ) ];
821
821
} else {
822
- $input_params {$name } = $cgi -> param($symbol );
822
+ $input_params {$name } = decode_utf8( $cgi -> param($symbol ) );
823
823
}
824
824
}
825
825
}
@@ -2775,7 +2775,7 @@ sub git_populate_project_tagcloud {
2775
2775
}
2776
2776
2777
2777
my $cloud ;
2778
- my $matched = $cgi -> param( ' by_tag ' ) ;
2778
+ my $matched = $input_params { ' ctag ' } ;
2779
2779
if (eval { require HTML::TagCloud; 1; }) {
2780
2780
$cloud = HTML::TagCloud-> new;
2781
2781
foreach my $ctag (sort keys %ctags_lc ) {
@@ -3906,7 +3906,7 @@ sub print_search_form {
3906
3906
-values => [' commit' , ' grep' , ' author' , ' committer' , ' pickaxe' ]) .
3907
3907
$cgi -> sup($cgi -> a({-href => href(action => " search_help" )}, " ?" )) .
3908
3908
" search:\n " ,
3909
- $cgi -> textfield(-name => " s" , -value => $searchtext ) . " \n " .
3909
+ $cgi -> textfield(-name => " s" , -value => $searchtext , - override => 1 ) . " \n " .
3910
3910
" <span title=\" Extended regular expression\" >" .
3911
3911
$cgi -> checkbox(-name => ' sr' , -value => 1, -label => ' re' ,
3912
3912
-checked => $search_use_regexp ) .
@@ -5345,7 +5345,7 @@ sub git_project_list_body {
5345
5345
5346
5346
my $check_forks = gitweb_check_feature(' forks' );
5347
5347
my $show_ctags = gitweb_check_feature(' ctags' );
5348
- my $tagfilter = $show_ctags ? $cgi -> param( ' by_tag ' ) : undef ;
5348
+ my $tagfilter = $show_ctags ? $input_params { ' ctag ' } : undef ;
5349
5349
$check_forks = undef
5350
5350
if ($tagfilter || $searchtext );
5351
5351
@@ -6261,7 +6261,7 @@ sub git_tag {
6261
6261
6262
6262
sub git_blame_common {
6263
6263
my $format = shift || ' porcelain' ;
6264
- if ($format eq ' porcelain' && $cgi -> param( ' js ' ) ) {
6264
+ if ($format eq ' porcelain' && $input_params { ' javascript ' } ) {
6265
6265
$format = ' incremental' ;
6266
6266
$action = ' blame_incremental' ; # for page title etc
6267
6267
}
0 commit comments