Revision 755 (by dpavlin, 2006/10/29 16:42:48) new branch for electronic journals
 
# Alternative implementation for unac_string which supports charasters in
# Croatian language which isn't really accented (ð) but needs to be coverted
# to unaccented equivalent (d)

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 = unac_string($charset,$string);
	$string =~ tr/ðÐ/dD/;
	$string =~ s#&(\w)(acute|cedil|circ|grave|ring|slash|tilde|uml);#$1#gi;
	return $string;
}

1;