git.rot13.org Git - webpac/blob - filter/unac_string_croatian.pm

   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;