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 
#-------------------------------------------------------------------------------