Escape any & we add in make_search_url

[deb/packages.git] / lib / Packages / CGI.pm

diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm
index b8607c933781104bb4f70d3502460374b2b0ce7f..236dd8df3b1e976341af46b8ba91d06f14473dc1 100644 (file)
--- a/lib/Packages/CGI.pm
+++ b/lib/Packages/CGI.pm
@@ -435,7 +435,7 @@ sub make_search_url {
     push @path, $Packages::Config::SEARCH_URL
        if $Packages::Config::SEARCH_URL;
     foreach my $p (qw(lang source suite archive section subsection
-                     exact mode searchon format debug)) {
+                     arch exact mode searchon format debug)) {
        my $val = $url_params{$p};
        $val = $query_params{$p} if exists $query_params{$p};
        $val = $override->{$p} if exists $override->{$p};
@@ -445,7 +445,7 @@ sub make_search_url {
     push @query_string, $add_query if $add_query;
 
     my $path = join( '/', @path );
-    my $query_string = join( '&', @query_string );
+    my $query_string = join( '&', @query_string );
 
     return "$path?$query_string";
 }