Parent Directory | Revision Log | Patch
revision 458 by dpavlin, Tue Sep 21 16:53:44 2004 UTC | revision 633 by dpavlin, Sun Jan 16 18:57:15 2005 UTC | |
---|---|---|
# | Line 9 sub my_unac_string { | Line 9 sub my_unac_string { |
9 | my $string = shift || return; | my $string = shift || return; |
10 | $string = unac_string($charset,$string); | $string = unac_string($charset,$string); |
11 | $string =~ tr/ðÐ/dD/; | $string =~ tr/ðÐ/dD/; |
12 | $string =~ s#&(\w)(acute|cedil|circ|grave|ring|slash|tilde|uml);#$1#gi; | |
13 | return $string; | return $string; |
14 | } | } |
15 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |