[Rt-commit] rt branch, 4.0/parse-format-original-string, repushed

[? sunnavy]

The branch 4.0/parse-format-original-string was deleted and repushed:
       was 3a323a7ba5e7f7242bd95b4bfe1a54f2e41757ec
       now c58caefba8e2d787c8682c4aa783f17f8e239b2f

1:  3a323a7 ! 1:  c58caef keep the original string in ParseFormat so we can reuse it in BuildFormatString
    @@ -42,19 +42,10 @@
     +        $row = $field->{'original_string'};
          }
          else {
    --        $row .= $field->{'Prefix'} if defined $field->{'Prefix'};
    --        $row .= "__$field->{'Column'}__"
    --          unless ( $field->{'Column'} eq "<blank>" );
    --        $row .= $field->{'Suffix'} if defined $field->{'Suffix'};
    -+        if ( $field->{'output'} ) {
    -+            $row = join '', @{$field->{'output'}};
    -+        }
    -+        else {
    -+            $row .= $field->{'Prefix'} if defined $field->{'Prefix'};
    -+            $row .= "__$field->{'Column'}__"
    -+              unless ( $field->{'Column'} eq "<blank>" );
    -+            $row .= $field->{'Suffix'} if defined $field->{'Suffix'};
    -+        }
    +         $row .= $field->{'Prefix'} if defined $field->{'Prefix'};
    +         $row .= "__$field->{'Column'}__"
    +           unless ( $field->{'Column'} eq "<blank>" );
    +         $row .= $field->{'Suffix'} if defined $field->{'Suffix'};
     +        $row =~ s!([\\'])!\\$1!g;
     +        $row = "'$row'";
          }