--- trunk/WebPac.pm 2003/11/20 21:23:40 163 +++ trunk/WebPac.pm 2003/11/29 18:40:19 186 @@ -28,7 +28,11 @@ my $ON_PAGE =$cfg_global->val('webpac', 'on_page') || 10; my $MIN_WILDCARD =$cfg_global->val('webpac', 'min_wildcard') || 1; my $TEMPLATE =$cfg_global->val('webpac', 'template'); +my $UNAC_FILTER =$cfg_global->val('global', 'unac_filter'); +if ($UNAC_FILTER) { + require $UNAC_FILTER; +} Text::Iconv->raise_error(0); # Conversion errors raise exceptions @@ -105,11 +109,13 @@ push @persist_vars, "f$i"; push @persist_vars, "v$i"; + push @persist_vars, "e$i" if ($q->param("e$i")); push @url_params,"f$i=".$q->url_param("f$i"); foreach my $v ($q->url_param("v$i")) { push @url_params,"v$i=$v"; } + push @url_params,"e$i=".$q->url_param("e$i"); my $wc="*"; # swish wildcard $wc="" if ($i eq ""); # don't apply wildcard on field 0