Crolist CROASCII

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@131 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/filter/croascii.pm b/filter/croascii.pm
index 48c6401..d26d1e1 100644 (file)
--- a/filter/croascii.pm
+++ b/filter/croascii.pm
@@ -1,8 +1,11 @@
+# CROASCII (YUS|HRN) B1.002:1982
+# conversion to ISO-8859-2
 
 sub croascii {
        my $out = "";
        foreach (@_) {
-               tr/~^}]{[|\`@/Èæƹ©ðо®/;
+#              tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;      # B1.002:1982
+               tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;    # Crolist croascii
                $out .= $_;
        }
        return $out;