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

[webpac] / filter / croascii.pm

diff --git a/filter/croascii.pm b/filter/croascii.pm
index 48c6401..49e614d 100644 (file)
--- a/filter/croascii.pm
+++ b/filter/croascii.pm
@@ -1,8 +1,22 @@
+# CROASCII (YUS|HRN) B1.002:1982
+# conversion to ISO-8859-2
 
 sub croascii {
        my $out = "";
        foreach (@_) {
-               tr/~^}]{[|\`@/Èæƹ©ðо®/;
+#              tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;      # B1.002:1982
+               tr/^~]}\\|[{@`/ÈèÆæÐ𩹮¾/;     # Crolist croascii
+               # Crolist alternative encoding
+               s/ÏC/È/g;
+               s/Ïc/è/g;
+               s/ÂC/Æ/g;
+               s/Âc/æ/g;
+               #s/??/Ð/g;
+               s/ò/ð/g;
+               s/ÏS/©/g;
+               s/Ïs/¹/g;
+               s/ÏZ/®/g;
+               s/Ïz/¾/g;
                $out .= $_;
        }
        return $out;