--- trunk/WebPac.pm 2003/02/22 13:22:09 14 +++ trunk/WebPac.pm 2003/02/23 15:47:40 35 @@ -22,7 +22,7 @@ my $MAX_HITS = 500; my $ON_PAGE = 10; -Text::Iconv->raise_error(1); # Conversion errors raise exceptions +Text::Iconv->raise_error(0); # Conversion errors raise exceptions my $from_utf8 = Text::Iconv->new('UTF8', $CHARSET); @@ -91,6 +91,7 @@ $s.="$_* "; } } + $s =~ s/\*+/*/g; push @s_arr,$q->param("f$i")."_swish=($s)"; } @@ -108,8 +109,10 @@ push @swish_results, { nr => ($#swish_results + 2), path => $hit->swishdocpath, - headline => $from_utf8->convert($hit->headline), - html => back2html($from_utf8->convert($hit->html)), +# headline => $from_utf8->convert($hit->headline), +# html => back2html($from_utf8->convert($hit->html)), + headline => $hit->headline, + html => back2html($hit->html), rank => $hit->swishrank }; }, @@ -191,6 +194,11 @@ $tmpl->param('limit',$limit); $tmpl->param('total',$total); +# FIX: I should set offset and leave out limit from fetch!! +# if (! $q->param("PAGER_offset") { +# $q->param("Pager_offet) +# } + my $pager = HTML::Pager->new( query => $q, get_data_callback => sub {