Changeset 5709 for trunk/gsdl/perllib/ghtml.pm

Timestamp:

2003-10-22T13:28:35+13:00 (21 years ago)

Author:

jrm21

Message:

convert non-standard entities as used by Microsoft code pages to the
correct unicode values.

File:

• trunk/gsdl/perllib/ghtml.pm (modified) (1 diff)

trunk/gsdl/perllib/ghtml.pm

@@ -151 +151 @@
     # a numeric entity
     if ($entity =~ /^\#0*(\d+)/) {
-    return &unicode::unicode2utf8([$1]);
+    my $code=$1;
+    # non-standard Microsoft breakage, as usual
+    if ($code < 0x9f) { # code page 1252 uses reserved bytes
+        if ($code == 0x91) {$code=0x2018} # 145 = single left quote
+        elsif ($code == 0x92) {$code=0x2019} # 146 = single right quote
+        elsif ($code == 0x93) {$code=0x201c} # 147 = double left quote
+        elsif ($code == 0x94) {$code=0x201d} # 148 = double right quote
+        # ...
+    }
+    return &unicode::unicode2utf8([$code]);
     }