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!"; |
183 |
my @persist_vars = @_; |
my @persist_vars = @_; |
184 |
my $hidden_vars = ''; |
my $hidden_vars = ''; |
185 |
foreach my $v (@persist_vars) { |
foreach my $v (@persist_vars) { |
186 |
$hidden_vars .= '<input type="hidden" name="'.$v.'" value="'.$q->param($v).'"/>'."\n"; |
foreach my $val ($q->param($v)) { |
187 |
|
$hidden_vars .= '<input type="hidden" name="'.$v.'" value="'.$val.'"/>'."\n"; |
188 |
|
} |
189 |
} |
} |
190 |
|
|
191 |
$tmpl->param('PAGER_HIDDEN', $hidden_vars); |
$tmpl->param('PAGER_HIDDEN', $hidden_vars); |
261 |
while (my $search = shift @param_vals) { |
while (my $search = shift @param_vals) { |
262 |
my $s; |
my $s; |
263 |
# remove accents |
# remove accents |
264 |
$search = unac_string($CHARSET,$search); |
$search = my_unac_string($CHARSET,$search); |
265 |
while ($search =~ s/\s*("[^"]+")\s*/ /) { |
while ($search =~ s/\s*("[^"]+")\s*/ /) { |
266 |
$s .= "$1 "; |
$s .= "$1 "; |
267 |
} |
} |