use Data::Dump qw/dump/;
use SWISH::API;
use JSON;
-use Text::Unaccent::PurePerl qw/unac_string/;
+#use Text::Unaccent::PurePerl qw/unac_string/;
+use Text::Unaccent qw/unac_string/;
use HTML::FillInForm::Lite;
use Encode;
if ( my $search = param('search') ) {
- $search = unac_string( Encode::decode('utf-8',$search) );
+ $search = unac_string( 'utf-8', Encode::decode('utf-8',$search) );
print qq|
<a href="#form" class="skip" title="skip to search form">#</a>