Changeset 3181 for trunk/gsdl/perllib/plugins/HTMLPlug.pm

Timestamp:

2002-06-25T20:15:26+12:00 (22 years ago)

Author:

sjboddie

Message:

Altered the getcharequiv() function so it now converts entities to raw
utf-8 characters. This should now work for entities like ∏ (i.e.
characters outside of the latin 1 character set).

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -676 +676 @@
     &BasPlug::read_file($self, $filename, $encoding, $language, $textref);
 
-
-    # Convert things like é to their UTF8 equivalents
+    # Convert entities to their UTF8 equivalents
     $$textref =~ s/&(lt|gt|amp|quot);/&z$1;/go;
-    $$textref =~ s/&([^;]+);/&unicode::ascii2utf8(\&ghtml::getcharequiv($1,1))/gseo;
+    $$textref =~ s/&([^;]+);/&ghtml::getcharequiv($1,1)/gseo;
     $$textref =~ s/&z(lt|gt|amp|quot);/&$1;/go;
 }