117 |
|
|
118 |
my $tmpl = $self->load_tmpl('results.html'); |
my $tmpl = $self->load_tmpl('results.html'); |
119 |
|
|
120 |
|
sub esc_html { |
121 |
|
my $html = shift; |
122 |
|
$html =~ s/</</g; |
123 |
|
$html =~ s/>/>/g; |
124 |
|
return $html; |
125 |
|
} |
126 |
|
|
127 |
# call swish |
# call swish |
128 |
my $sh = SWISH->connect('Fork', |
my $sh = SWISH->connect('Fork', |
129 |
prog => $SWISH, |
prog => $SWISH, |
135 |
push @swish_results, { |
push @swish_results, { |
136 |
nr => ($#swish_results + 2), |
nr => ($#swish_results + 2), |
137 |
path => $hit->swishdocpath, |
path => $hit->swishdocpath, |
138 |
headline => $from_utf8->convert($hit->headline), |
headline => esc_html($from_utf8->convert($hit->headline)), |
139 |
html => back2html($from_utf8->convert($hit->html)), |
html => back2html($from_utf8->convert($hit->html)), |
140 |
rank => $hit->swishrank }; |
rank => $hit->swishrank }; |
141 |
|
|