28 |
my $ON_PAGE =$cfg_global->val('webpac', 'on_page') || 10; |
my $ON_PAGE =$cfg_global->val('webpac', 'on_page') || 10; |
29 |
my $MIN_WILDCARD =$cfg_global->val('webpac', 'min_wildcard') || 1; |
my $MIN_WILDCARD =$cfg_global->val('webpac', 'min_wildcard') || 1; |
30 |
my $TEMPLATE =$cfg_global->val('webpac', 'template'); |
my $TEMPLATE =$cfg_global->val('webpac', 'template'); |
31 |
|
my $UNAC_FILTER =$cfg_global->val('global', 'unac_filter'); |
32 |
|
|
33 |
|
if ($UNAC_FILTER) { |
34 |
|
require $UNAC_FILTER; |
35 |
|
} |
36 |
|
|
37 |
Text::Iconv->raise_error(0); # Conversion errors raise exceptions |
Text::Iconv->raise_error(0); # Conversion errors raise exceptions |
38 |
|
|
109 |
|
|
110 |
push @persist_vars, "f$i"; |
push @persist_vars, "f$i"; |
111 |
push @persist_vars, "v$i"; |
push @persist_vars, "v$i"; |
112 |
|
push @persist_vars, "e$i" if ($q->param("e$i")); |
113 |
|
|
114 |
push @url_params,"f$i=".$q->url_param("f$i"); |
push @url_params,"f$i=".$q->url_param("f$i"); |
115 |
foreach my $v ($q->url_param("v$i")) { |
foreach my $v ($q->url_param("v$i")) { |
116 |
push @url_params,"v$i=$v"; |
push @url_params,"v$i=$v"; |
117 |
} |
} |
118 |
|
push @url_params,"e$i=".$q->url_param("e$i"); |
119 |
|
|
120 |
my $wc="*"; # swish wildcard |
my $wc="*"; # swish wildcard |
121 |
$wc="" if ($i eq ""); # don't apply wildcard on field 0 |
$wc="" if ($i eq ""); # don't apply wildcard on field 0 |