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 |
142 |
if ($q->param("e$i")) { |
if ($q->param("e$i")) { |
143 |
$pre = '"' if (! $pre); |
$pre = '"' if (! $pre); |
144 |
$post = '"' if (! $post); |
$post = '"' if (! $post); |
145 |
$wc = ''; # don't use windcard in exact |
# what about wildcards? |
146 |
|
$wc = ''; |
147 |
|
$wc = '*' if ($q->param("e$i") & 4); |
148 |
$exact = '_exact'; |
$exact = '_exact'; |
149 |
} |
} |
150 |
|
|