Changeset 2085

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"

Location:

trunk/gsdl/perllib/plugins

Files:

• SRCPlug.pm (modified) (1 diff)
• TEXTPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/SRCPlug.pm

@@ -112 +112 @@
     # try _escape_text($text) from doc.pm....
 
+    # don't want mg to turn escape chars into actual values
+    $$textref =~ s/\\/\\\\/g;
 
     # use filename (minus any prefix) as the title.

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>");