X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=my_unac_string.pm;h=82d9a7606579888d2068d5eda03a96e1302174e4;hb=59ace2b4b24a63980678c794091a17f6acfb64cb;hp=3c16afaec102f3b36e26c21da64d6f0d682887e7;hpb=863c1e3e82d2b9b5b309a8df57799ec0ab145d3f;p=webpac

diff --git a/my_unac_string.pm b/my_unac_string.pm
index 3c16afa..82d9a76 100644
--- a/my_unac_string.pm
+++ b/my_unac_string.pm
@@ -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;
 }