Parent Directory | Revision Log | Patch
revision 546 by dpavlin, Tue Oct 26 18:59:38 2004 UTC | revision 549 by dpavlin, Tue Oct 26 20:53:03 2004 UTC | |
---|---|---|
# | Line 63 sub unac_2 { | Line 63 sub unac_2 { |
63 | $string =~ tr/ðÐ/dD/; | $string =~ tr/ðÐ/dD/; |
64 | $string = $pr . $string; | $string = $pr . $string; |
65 | } | } |
66 | $string =~ s/&(\w)(acute|cedil|circ|grave|ring|slash|tilde|uml);/$1/gi; | |
67 | $string =~ s/ð/d/g; | |
68 | $string =~ s/&E[tT][hH];/D/g; | |
69 | $string =~ s/&(\w\w)lig;/$1/gi; | |
70 | return lc($string); | return lc($string); |
71 | } | } |
72 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |