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 |