Subversion Repositories DevTools

Rev

Rev 5687 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5687 Rev 6310
Line 951... Line 951...
951
sub cleanIssueTest
951
sub cleanIssueTest
952
{
952
{
953
    my ($data) = @_;
953
    my ($data) = @_;
954
    #
954
    #
955
    #   Clean multiline items
955
    #   Clean multiline items
-
 
956
    #       Replace escape (033 or 0x1b)
-
 
957
    #       Replace 'Returns'
-
 
958
    #       Replace multiple new lines with  2 <br>
-
 
959
    #       Replace new lines with <br>
956
    #
960
    #
957
    if ($data && $data =~ m~\n|\r~)
961
    if ($data )
958
    {
962
    {
-
 
963
        $data =~ s~\x1b~<ESC>~gi;
-
 
964
        $data =~ s~\n\r~\n~gs;
959
        $data =~ tr~\r~\n~;
965
        $data =~ s~\r\n~\n~gs;
960
        $data =~ tr~\n~\n~s;
966
        $data =~ s~\r~\n~gs;
-
 
967
        $data =~ s~\n{2,}~<br><br>~gi;
961
        $data =~ s~\n~<br>~g;
968
        $data =~ s~\n~<br>~gs;
962
        $data =~ s~<br><br>~<br>~gi;
969
        $data =~ s~(<br>){2,}~<br><br>~gi;
963
    }
970
    }
964
  return $data;
971
  return $data;
965
}
972
}
966
 
973
 
967
#-------------------------------------------------------------------------------
974
#-------------------------------------------------------------------------------