| 4 |
|
|
| 5 |
use Text::Unaccent 1.02; # 1.01 won't compile on my platform, |
use Text::Unaccent 1.02; # 1.01 won't compile on my platform, |
| 6 |
|
|
| 7 |
sub my_unac_string($$) { |
sub my_unac_string { |
| 8 |
my $charset = shift || return; |
my $charset = shift || return; |
| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch