Changeset 3182 for trunk/protemix/perllib

Timestamp:

2002-06-25T21:07:30+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/protemix/perllib/plugins/ProtemixPlug.pm (modified) (1 diff)

trunk/protemix/perllib/plugins/ProtemixPlug.pm

@@ -176 +176 @@
 }
 
+# don't want to convert character entities for now as mgpp appears to be broken
+sub read_file {
+    my ($self, $filename, $encoding, $language, $textref) = @_;
+
+    &BasPlug::read_file($self, $filename, $encoding, $language, $textref);
+
+    # Convert entities to their UTF8 equivalents
+#    $$textref =~ s/&(lt|gt|amp|quot);/&z$1;/go;
+#    $$textref =~ s/&([^;]+);/&ghtml::getcharequiv($1,1)/gseo;
+#    $$textref =~ s/&z(lt|gt|amp|quot);/&$1;/go;
+}
+
+
 1;