Changeset 2364

Timestamp:

2001-05-04T16:44:17+12:00 (23 years ago)

Author:

jrm21

Message:

turn "\" into "
" so that we don't lose backslashes along the way...

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -557 +557 @@
 
     &BasPlug::read_file($self, $filename, $encoding, $textref);
-    
+
+    # turn \ into \\ so that the rest of greenstone doesn't think there
+    # is an escape code following.
+    $$textref =~ s/\\/\\\\/go;
+
     # Convert things like é to their UTF8 equivalents
     $$textref =~ s/&(lt|gt|amp|quot);/&z$1;/go;