--- trunk/filter/unac_string_croatian.pm	2003/11/23 15:36:12	167
+++ trunk/my_unac_string.pm	2004/06/15 22:08:42	350
@@ -2,12 +2,13 @@
 # Croatian language which isn't really accented (ð) but needs to be coverted
 # to unaccented equivalent (d)
 
-sub unac_string($$) {
+use Text::Unaccent 1.02;	# 1.01 won't compile on my platform,
+
+sub my_unac_string {
 	my $charset = shift || return;
 	my $string = shift || return;
-#	$string = Text::Unaccent::unac_string($charset,$string);
-#	$string =~ tr/ðÐ/dD/;
-	$string =~ tr/èæ¾¹ðÈÆ®©Ð/cczsdCCZSD/;
+	$string = unac_string($charset,$string);
+	$string =~ tr/ðÐ/dD/;
 	return $string;
 }