6 |
use HTML::Pager; |
use HTML::Pager; |
7 |
use HTML::FillInForm; |
use HTML::FillInForm; |
8 |
use SWISH; |
use SWISH; |
9 |
use Unicode::MapUTF8 qw(to_utf8 from_utf8 utf8_supported_charset); |
use Text::Iconv; |
10 |
use DBI; |
use DBI; |
11 |
|
|
12 |
use lib '..'; |
use lib '..'; |
22 |
my $MAX_HITS = 500; |
my $MAX_HITS = 500; |
23 |
my $ON_PAGE = 10; |
my $ON_PAGE = 10; |
24 |
|
|
25 |
|
Text::Iconv->raise_error(1); # Conversion errors raise exceptions |
26 |
|
|
27 |
|
my $from_utf8 = Text::Iconv->new('UTF8', $CHARSET); |
28 |
|
|
29 |
sub setup { |
sub setup { |
30 |
my $self = shift; |
my $self = shift; |
108 |
push @swish_results, { |
push @swish_results, { |
109 |
nr => ($#swish_results + 2), |
nr => ($#swish_results + 2), |
110 |
path => $hit->swishdocpath, |
path => $hit->swishdocpath, |
111 |
headline => from_utf8({ -string => $hit->headline, -charset => $CHARSET }), |
headline => $from_utf8->convert($hit->headline), |
112 |
html => back2html(from_utf8({ -string => $hit->html, -charset => $CHARSET })), |
html => back2html($from_utf8->convert($hit->html)), |
113 |
rank => $hit->swishrank }; |
rank => $hit->swishrank }; |
114 |
|
|
115 |
}, |
}, |