183 |
my @persist_vars = @_; |
my @persist_vars = @_; |
184 |
my $hidden_vars = ''; |
my $hidden_vars = ''; |
185 |
foreach my $v (@persist_vars) { |
foreach my $v (@persist_vars) { |
186 |
$hidden_vars .= '<input type="hidden" name="'.$v.'" value="'.$q->param($v).'"/>'."\n"; |
foreach my $val ($q->param($v)) { |
187 |
|
$hidden_vars .= '<input type="hidden" name="'.$v.'" value="'.$val.'"/>'."\n"; |
188 |
|
} |
189 |
} |
} |
190 |
|
|
191 |
$tmpl->param('PAGER_HIDDEN', $hidden_vars); |
$tmpl->param('PAGER_HIDDEN', $hidden_vars); |
324 |
|
|
325 |
# construct swish query |
# construct swish query |
326 |
my $sw_q = join(" and ",@s_arr); |
my $sw_q = join(" and ",@s_arr); |
327 |
if (@path_arr && $q->param('show_full')) { |
if (@path_arr) { |
328 |
$sw_q .= "and (swishdocpath=\""; |
$sw_q .= "and (swishdocpath=\""; |
329 |
$sw_q .= join("\" or swishdocpath=\"",@path_arr); |
$sw_q .= join("\" or swishdocpath=\"",@path_arr); |
330 |
$sw_q .= "\")"; |
$sw_q .= "\")"; |
331 |
$tmpl->param('full',1); # show full records |
} |
332 |
} elsif ($q->param('show_full')) { |
|
333 |
|
if ($q->param('show_full')) { |
334 |
# just show full path, no path defined |
# just show full path, no path defined |
335 |
$tmpl->param('full',1); |
$tmpl->param('full',1); |
336 |
} else { |
} else { |