Changeset 9441

Timestamp:

2005-03-16T10:39:56+13:00 (19 years ago)

Author:

mdewsnip

Message:

Small fix for dealing with strings containing "\n" characters.

File:

• trunk/gsdl/bin/script/translator/submittranslations.pl (modified) (1 diff)

trunk/gsdl/bin/script/translator/submittranslations.pl

@@ -437 +437 @@
     # Is this an icon macro??
     if ($sourcechunk =~ /^\#\# (.*)/) {
+        # Escape any newline characters so the source text is replaced correctly
+        $sourcetext =~ s/\\/\\\\/g;
+
         # Build target chunk from the source chunk and the target text
-        local $targetchunk = $sourcechunk;
+        my $targetchunk = $sourcechunk;
         $targetchunk =~ s/$sourcetext/$targettext/;