fixed transfer of variables with multiple values in headline

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@158 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/WebPac.pm b/WebPac.pm
index 9511406..209c926 100644 (file)
--- a/WebPac.pm
+++ b/WebPac.pm
@@ -107,7 +107,9 @@ sub show_results_list {
                push @persist_vars, "v$i";
 
                push @url_params,"f$i=".$q->url_param("f$i");
-               push @url_params,"v$i=".$q->url_param("v$i");
+               foreach my $v ($q->url_param("v$i")) {
+                       push @url_params,"v$i=$v";
+               }
 
                my $wc="*";     # swish wildcard
                $wc="" if ($i eq "");   # don't apply wildcard on field 0