don't die if ISIS database is not found, just go to next one

[webpac] / my_unac_string.pm

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