2 |
# Croatian language which isn't really accented (ð) but needs to be coverted |
# Croatian language which isn't really accented (ð) but needs to be coverted |
3 |
# to unaccented equivalent (d) |
# to unaccented equivalent (d) |
4 |
|
|
5 |
sub unac_string { |
sub unac_string($$) { |
6 |
my $charset = shift || return; |
my $charset = shift || return; |
7 |
my $string = shift || return; |
my $string = shift || return; |
8 |
# $string = Text::Unaccent::unac_string($charset,$string); |
# $string = Text::Unaccent::unac_string($charset,$string); |