bug fix when transfering fields with multiple values (e.g. checkboxes) to

[webpac] / WebPac.pm

diff --git a/WebPac.pm b/WebPac.pm
index c187dee..ca02296 100644 (file)
--- 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 .= '<input type="hidden" name="'.$v.'" value="'.$q->param($v).'"/>'."\n";
+               foreach my $val ($q->param($v)) {
+                       $hidden_vars .= '<input type="hidden" name="'.$v.'" value="'.$val.'"/>'."\n";
+               }
        }
 
        $tmpl->param('PAGER_HIDDEN', $hidden_vars);