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 |