--- branches/lezbib/WebPac.pm 2005/02/16 00:28:54 671
+++ branches/lezbib/WebPac.pm 2005/03/01 19:32:23 687
@@ -182,14 +182,18 @@
my $tmpl = shift @_;
my @persist_vars = @_;
my $hidden_vars = '';
+ my $hidden_search = '';
foreach my $v (@persist_vars) {
foreach my $val ($q->param($v)) {
next if (! $val || $val eq '');
+ $val =~ s/"/"e;/g;
$hidden_vars .= ''."\n";
+ $hidden_search .= ''."\n" if ($v ne "rm");
}
}
$tmpl->param('PAGER_HIDDEN', $hidden_vars);
+ $tmpl->param('SEARCH_HIDDEN', $hidden_search);
$tmpl->param('PAGER_JAVASCRIPT', qq#