--- branches/drustvene/my_unac_string.pm 2005/01/16 18:35:24 632 +++ branches/drustvene/my_unac_string.pm 2005/01/16 18:57:15 633 @@ -9,6 +9,7 @@ my $string = shift || return; $string = unac_string($charset,$string); $string =~ tr/ðÐ/dD/; + $string =~ s#&(\w)(acute|cedil|circ|grave|ring|slash|tilde|uml);#$1#gi; return $string; }