Parent Directory | Revision Log
add prototype
1 | # 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 | sub unac_string($$) { |
6 | my $charset = shift || return; |
7 | my $string = shift || return; |
8 | # $string = Text::Unaccent::unac_string($charset,$string); |
9 | # $string =~ tr/ðÐ/dD/; |
10 | $string =~ tr/èæ¾¹ðÈÆ®©Ð/cczsdCCZSD/; |
11 | return $string; |
12 | } |
13 | |
14 | 1; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.2 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |