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

pager (hidden fields that is)

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@457 13eb9ef6-21d5-0310-b721-a9d68796d827

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) {
        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);
        }
 
        $tmpl->param('PAGER_HIDDEN', $hidden_vars);