109 |
|
|
110 |
push @persist_vars, "f$i"; |
push @persist_vars, "f$i"; |
111 |
push @persist_vars, "v$i"; |
push @persist_vars, "v$i"; |
112 |
|
push @persist_vars, "e$i" if ($q->param("e$i")); |
113 |
|
|
114 |
push @url_params,"f$i=".$q->url_param("f$i"); |
push @url_params,"f$i=".$q->url_param("f$i"); |
115 |
foreach my $v ($q->url_param("v$i")) { |
foreach my $v ($q->url_param("v$i")) { |
116 |
push @url_params,"v$i=$v"; |
push @url_params,"v$i=$v"; |
117 |
} |
} |
118 |
|
push @url_params,"e$i=".$q->url_param("e$i"); |
119 |
|
|
120 |
my $wc="*"; # swish wildcard |
my $wc="*"; # swish wildcard |
121 |
$wc="" if ($i eq ""); # don't apply wildcard on field 0 |
$wc="" if ($i eq ""); # don't apply wildcard on field 0 |