X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=WebPac.pm;h=e28dbbceb227b361756a853eeb121897bf56282b;hb=ed651b4d838e3f8f72e378d3417012f76f0f2479;hp=94d47d5c3f64c0eeb871bf6bd51599f93791a85e;hpb=da4562f447dcd048e2f7d73b50038f0b8414572c;p=webpac
diff --git a/WebPac.pm b/WebPac.pm
index 94d47d5..e28dbbc 100644
--- a/WebPac.pm
+++ b/WebPac.pm
@@ -10,6 +10,7 @@ use DBI;
use Config::IniFiles;
use Text::Unaccent;
use Data::Pageset;
+use POSIX qw(locale_h);
use lib '..';
use index_DBI_filter;
@@ -32,11 +33,15 @@ my $UNAC_FILTER =$cfg_global->val('global', 'my_unac_filter');
my $BASE_PATH =$cfg_global->val('webpac', 'base_path');
# for pager
my $pages_per_set = $cfg_global->val('webpac', 'pages_per_set') || 10;
+my $locale = $cfg_global->val('locale') || 'hr_HR';
Text::Iconv->raise_error(0); # Conversion errors raise exceptions
my $from_utf8 = Text::Iconv->new('UTF8', $CHARSET);
+setlocale(LC_CTYPE, $locale);
+setlocale(LC_COLLATE, $locale);
+
if ($UNAC_FILTER) {
require $UNAC_FILTER;
} else {
@@ -182,14 +187,18 @@ sub make_pager_vars {
my $tmpl = shift @_;
my @persist_vars = @_;
my $hidden_vars = '';
+ my $hidden_search = '';
foreach my $v (@persist_vars) {
foreach my $val ($q->param($v)) {
next if (! $val || $val eq '');
+ $val =~ s/"/"/g;
$hidden_vars .= ''."\n";
+ $hidden_search .= ''."\n" if ($v ne "rm");
}
}
$tmpl->param('PAGER_HIDDEN', $hidden_vars);
+ $tmpl->param('SEARCH_HIDDEN', $hidden_search);
$tmpl->param('PAGER_JAVASCRIPT', qq#