182 |
my $tmpl = shift @_; |
my $tmpl = shift @_; |
183 |
my @persist_vars = @_; |
my @persist_vars = @_; |
184 |
my $hidden_vars = ''; |
my $hidden_vars = ''; |
185 |
|
my $hidden_search = ''; |
186 |
foreach my $v (@persist_vars) { |
foreach my $v (@persist_vars) { |
187 |
foreach my $val ($q->param($v)) { |
foreach my $val ($q->param($v)) { |
188 |
next if (! $val || $val eq ''); |
next if (! $val || $val eq ''); |
189 |
$hidden_vars .= '<input type="hidden" name="'.$v.'" value="'.$val.'"/>'."\n"; |
$hidden_vars .= '<input type="hidden" name="'.$v.'" value="'.$val.'"/>'."\n"; |
190 |
|
$hidden_search .= '<input type="hidden" name="'.$v.'" value="'.$val.'"/>'."\n" if ($v ne "rm"); |
191 |
} |
} |
192 |
} |
} |
193 |
|
|
194 |
$tmpl->param('PAGER_HIDDEN', $hidden_vars); |
$tmpl->param('PAGER_HIDDEN', $hidden_vars); |
195 |
|
$tmpl->param('SEARCH_HIDDEN', $hidden_search); |
196 |
$tmpl->param('PAGER_JAVASCRIPT', qq# |
$tmpl->param('PAGER_JAVASCRIPT', qq# |
197 |
<SCRIPT LANGUAGE="Javascript"> |
<SCRIPT LANGUAGE="Javascript"> |
198 |
<!-- Begin |
<!-- Begin |
227 |
|
|
228 |
my $q = $self->query(); |
my $q = $self->query(); |
229 |
|
|
230 |
|
# submit was reset? |
231 |
|
if ($q->param('reset')) { |
232 |
|
$q->delete_all; |
233 |
|
return $self->show_search_form(); |
234 |
|
} |
235 |
|
|
236 |
# load template for this page |
# load template for this page |
237 |
|
|
238 |
my @s_arr; # all queries are located here |
my @s_arr; # all queries are located here |
273 |
push @url_params_persist,"f$i=".$q->url_param("f$i") if ($persist); |
push @url_params_persist,"f$i=".$q->url_param("f$i") if ($persist); |
274 |
|
|
275 |
foreach my $v ($q->url_param("v$i")) { |
foreach my $v ($q->url_param("v$i")) { |
276 |
|
# escape quotes so that phrase search work |
277 |
|
$v =~ s/"/%22/g; |
278 |
push @url_params,"v$i=$v"; |
push @url_params,"v$i=$v"; |
279 |
push @url_params_persist,"v$i=$v" if ($persist); |
push @url_params_persist,"v$i=$v" if ($persist); |
280 |
} |
} |