--- trunk/my_unac_string.pm	2004/04/18 00:57:39	320
+++ trunk/my_unac_string.pm	2005/01/16 18:29:24	631
@@ -4,11 +4,12 @@
 
 use Text::Unaccent 1.02;	# 1.01 won't compile on my platform,
 
-sub my_unac_string($$) {
+sub my_unac_string {
 	my $charset = shift || return;
 	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;
 }