/[webpac]/branches/hidra/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

Diff of /branches/hidra/my_unac_string.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/filter/unac_string_croatian.pm revision 167 by dpavlin, Sun Nov 23 15:36:12 2003 UTC trunk/my_unac_string.pm revision 320 by dpavlin, Sun Apr 18 00:57:39 2004 UTC
# Line 2  Line 2 
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($$) {  use Text::Unaccent 1.02;        # 1.01 won't compile on my platform,
6    
7    sub my_unac_string($$) {
8          my $charset = shift || return;          my $charset = shift || return;
9          my $string = shift || return;          my $string = shift || return;
10  #       $string = Text::Unaccent::unac_string($charset,$string);          $string = unac_string($charset,$string);
11  #       $string =~ tr/ðÐ/dD/;          $string =~ tr/ðÐ/dD/;
         $string =~ tr/èæ¾¹ðÈÆ®©Ð/cczsdCCZSD/;  
12          return $string;          return $string;
13  }  }
14    

Legend:
Removed from v.167  
changed lines
  Added in v.320

  ViewVC Help
Powered by ViewVC 1.1.26