--- trunk/vhost/webpac2.cgi 2009/07/24 09:14:29 1248 +++ trunk/vhost/webpac2.cgi 2009/07/24 09:29:03 1249 @@ -11,6 +11,7 @@ use Data::Dump qw/dump/; use SWISH::API; use JSON; +use Text::Unaccent::PurePerl qw/unac_string/; my $range_around = 5; my @entries_per_page = ( 30, 50, 100, 500 ); @@ -191,6 +192,8 @@ if ( my $search = param('search') ) { + $search = unac_string( $search ); + print qq|