/[webpac]/trunk2/my_unac_string.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk2/my_unac_string.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 167 - (show annotations)
Sun Nov 23 15:36:12 2003 UTC (20 years, 3 months ago) by dpavlin
Original Path: trunk/filter/unac_string_croatian.pm
File size: 413 byte(s)
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;

Properties

Name Value
cvs2svn:cvs-rev 1.2

  ViewVC Help
Powered by ViewVC 1.1.26