X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=WebPac.pm;h=ca022960bc81c528efe4242f5e0c67c1731b0ade;hb=688f2a81ad6c1c848b798bf45c0aedff458fd10b;hp=c187dee3d97b7ce78c72d573dee366c576d54a69;hpb=863c1e3e82d2b9b5b309a8df57799ec0ab145d3f;p=webpac diff --git a/WebPac.pm b/WebPac.pm index c187dee..ca02296 100644 --- a/WebPac.pm +++ b/WebPac.pm @@ -183,7 +183,9 @@ sub make_pager_vars { my @persist_vars = @_; my $hidden_vars = ''; foreach my $v (@persist_vars) { - $hidden_vars .= ''."\n"; + foreach my $val ($q->param($v)) { + $hidden_vars .= ''."\n"; + } } $tmpl->param('PAGER_HIDDEN', $hidden_vars);