diff options
author | Peter Andersson <[email protected]> | 2016-03-09 14:11:30 +0100 |
---|---|---|
committer | Peter Andersson <[email protected]> | 2016-03-09 17:12:49 +0100 |
commit | 52cee865fd9e5b4a1371c82075375a92b8f03fbe (patch) | |
tree | 7e1e8391e914eb093eab32fd6645e4d8f89e3101 /lib/test_server/src/test_server_ctrl.erl | |
parent | fb44a4de532ae97b3424078577dee7370078dea0 (diff) | |
download | otp-52cee865fd9e5b4a1371c82075375a92b8f03fbe.tar.gz otp-52cee865fd9e5b4a1371c82075375a92b8f03fbe.tar.bz2 otp-52cee865fd9e5b4a1371c82075375a92b8f03fbe.zip |
Fix minor issues with escaping characters
OTP-13003
Diffstat (limited to 'lib/test_server/src/test_server_ctrl.erl')
-rw-r--r-- | lib/test_server/src/test_server_ctrl.erl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl index 958fe1a2b7..e0975ab744 100644 --- a/lib/test_server/src/test_server_ctrl.erl +++ b/lib/test_server/src/test_server_ctrl.erl @@ -1825,13 +1825,14 @@ start_minor_log_file1(Mod, Func, LogDir, AbsName, MFA) -> case {filelib:is_file(filename:join(LogDir, SrcListing)), lists:member(no_src, get(test_server_logopts))} of {true,false} -> - print(Lev, Info ++ "<a href=\"~ts#~ts\">~w:~w/~w</a> " - "(click for source code)\n", + print(Lev, ["$tc_html", + Info ++ "<a href=\"~ts#~ts\">~w:~w/~w</a> " + "(click for source code)\n"], [uri_encode(SrcListing), uri_encode(atom_to_list(Func)++"-1",utf8), Mod,Func,Arity]); _ -> - print(Lev, Info ++ "~w:~w/~w\n", [Mod,Func,Arity]) + print(Lev, ["$tc_html",Info ++ "~w:~w/~w\n"], [Mod,Func,Arity]) end end, @@ -4356,6 +4357,10 @@ print(Detail, Format) -> print(Detail, Format, Args) -> print(Detail, Format, Args, internal). +print(Detail, ["$tc_html",Format], Args, Printer) -> + Msg = io_lib:format(Format, Args), + print_or_buffer(Detail, ["$tc_html",Msg], Printer); + print(Detail, Format, Args, Printer) -> Msg = io_lib:format(Format, Args), print_or_buffer(Detail, Msg, Printer). |