Changeset 2085 for trunk/gsdl/perllib/plugins/TEXTPlug.pm

Timestamp:

2001-02-28T17:57:03+13:00 (23 years ago)

Author:

jrm21

Message:

When importing, we need to escape any escape codes otherwise mg(?)
actually converts them. eg "\n" -> "
n"

File:

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

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -69 +69 @@
     $doc_obj->add_utf8_metadata ($cursection, "Title", $title);
     }
-    
+
+    # we need to escape the escape character, or else mg will convert into
+    # eg literal newlines, instead of leaving the text as '\n'
+    $$textref =~ s/\\/\\\\/g;
+
     # insert preformat tags and add text to document object
     $doc_obj->add_utf8_text($cursection, "<pre>\n$$textref\n</pre>");