# Alternative implementation for unac_string which supports charasters in
# Croatian language which isn't really accented (ð) but needs to be coverted
# to unaccented equivalent (d)

sub unac_string($$) {
	my $charset = shift || return;
	my $string = shift || return;
#	$string = Text::Unaccent::unac_string($charset,$string);
#	$string =~ tr/ðÐ/dD/;
	$string =~ tr/èæ¾¹ðÈÆ®©Ð/cczsdCCZSD/;
	return $string;
}

1;
