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'); |
my $UNAC_FILTER =$cfg_global->val('global', 'my_unac_filter'); |
32 |
my $BASE_PATH =$cfg_global->val('webpac', 'base_path'); |
my $BASE_PATH =$cfg_global->val('webpac', 'base_path'); |
33 |
# for pager |
# for pager |
34 |
my $pages_per_set = $cfg_global->val('webpac', 'pages_per_set') || 10; |
my $pages_per_set = $cfg_global->val('webpac', 'pages_per_set') || 10; |
35 |
|
|
36 |
|
Text::Iconv->raise_error(0); # Conversion errors raise exceptions |
37 |
|
|
38 |
|
my $from_utf8 = Text::Iconv->new('UTF8', $CHARSET); |
39 |
|
|
40 |
if ($UNAC_FILTER) { |
if ($UNAC_FILTER) { |
41 |
require $UNAC_FILTER; |
require $UNAC_FILTER; |
42 |
|
} else { |
43 |
|
sub WebPac::my_unac_string { |
44 |
|
my ($charset, $string) = (@_); |
45 |
|
return $string; |
46 |
|
} |
47 |
} |
} |
48 |
|
|
|
Text::Iconv->raise_error(0); # Conversion errors raise exceptions |
|
|
|
|
|
my $from_utf8 = Text::Iconv->new('UTF8', $CHARSET); |
|
|
|
|
49 |
# use path from cgi script to support templates in subdirs |
# use path from cgi script to support templates in subdirs |
50 |
sub url_ex { |
sub url_ex { |
51 |
my $q = shift || die "suff2file needs CGI object!"; |
my $q = shift || die "suff2file needs CGI object!"; |
259 |
while (my $search = shift @param_vals) { |
while (my $search = shift @param_vals) { |
260 |
my $s; |
my $s; |
261 |
# remove accents |
# remove accents |
262 |
$search = unac_string($CHARSET,$search); |
$search = my_unac_string($CHARSET,$search); |
263 |
while ($search =~ s/\s*("[^"]+")\s*/ /) { |
while ($search =~ s/\s*("[^"]+")\s*/ /) { |
264 |
$s .= "$1 "; |
$s .= "$1 "; |
265 |
} |
} |