branches/ffzg/my_unac_string.pm

# 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 {
        no warnings;
        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;
1	dpavlin	164	# Alternative implementation for unac_string which supports charasters in
2			# Croatian language which isn't really accented (ð) but needs to be coverted
3			# to unaccented equivalent (d)
4
5	dpavlin	320	use Text::Unaccent 1.02; # 1.01 won't compile on my platform,
6
7	dpavlin	458	sub my_unac_string {
8	dpavlin	777	no warnings;
9	dpavlin	164	my $charset = shift \|\| return;
10			my $string = shift \|\| return;
11	dpavlin	320	$string = unac_string($charset,$string);
12			$string =~ tr/ðÐ/dD/;
13	dpavlin	633	$string =~ s#&(\w)(acute\|cedil\|circ\|grave\|ring\|slash\|tilde\|uml);#$1#gi;
14	dpavlin	164	return $string;
15			}
16
17			1;