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 |
142 |
if ($q->param("e$i")) { |
if ($q->param("e$i")) { |
143 |
$pre = '"' if (! $pre); |
$pre = '"' if (! $pre); |
144 |
$post = '"' if (! $post); |
$post = '"' if (! $post); |
145 |
$wc = ''; # don't use windcard in exact |
# what about wildcards? |
146 |
|
$wc = ''; |
147 |
|
$wc = '*' if ($q->param("e$i") & 4); |
148 |
$exact = '_exact'; |
$exact = '_exact'; |
149 |
} |
} |
150 |
|
|