Parent Directory | Revision Log
update branches with bugfixes from HEAD
1 | dpavlin | 164 | # Alternative implementation for unac_string which supports charasters in |
2 | # Croatian language which isn't really accented (ð) but needs to be coverted | ||
3 | # to unaccented equivalent (d) | ||
4 | |||
5 | dpavlin | 320 | use Text::Unaccent 1.02; # 1.01 won't compile on my platform, |
6 | |||
7 | dpavlin | 458 | sub my_unac_string { |
8 | dpavlin | 164 | my $charset = shift || return; |
9 | my $string = shift || return; | ||
10 | dpavlin | 320 | $string = unac_string($charset,$string); |
11 | $string =~ tr/ðÐ/dD/; | ||
12 | dpavlin | 164 | return $string; |
13 | } | ||
14 | |||
15 | 1; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.2 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |