11 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
12 |
use SWISH::API; |
use SWISH::API; |
13 |
use JSON; |
use JSON; |
14 |
|
use Text::Unaccent::PurePerl qw/unac_string/; |
15 |
|
|
16 |
my $range_around = 5; |
my $range_around = 5; |
17 |
my @entries_per_page = ( 30, 50, 100, 500 ); |
my @entries_per_page = ( 30, 50, 100, 500 ); |
192 |
|
|
193 |
if ( my $search = param('search') ) { |
if ( my $search = param('search') ) { |
194 |
|
|
195 |
|
$search = unac_string( $search ); |
196 |
|
|
197 |
print qq| |
print qq| |
198 |
<a href="#form" class="skip" title="skip to search form">#</a> |
<a href="#form" class="skip" title="skip to search form">#</a> |
199 |
<div id="results"> |
<div id="results"> |