--- branches/lezbib/WebPac.pm 2004/09/21 16:40:46 457
+++ branches/lezbib/WebPac.pm 2004/09/21 16:53:44 458
@@ -183,7 +183,9 @@
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);