Commit fc22ada9 authored by Bas Lijnse's avatar Bas Lijnse
Browse files

Added flags for removing the client debug box when the client is not enabled

parent 83d041cd
...@@ -245,7 +245,7 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO ...@@ -245,7 +245,7 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO
# iTaskInfo = case headerOff of # iTaskInfo = case headerOff of
Nothing -> Nothing ->
( IF_Ajax (IF_ClientServer (IF_ClientTasks [showLabel "Client: "] [showLabel "Server: "]) []) [] ++ ( IF_Ajax (IF_ClientTasks [showLabel "Client: "] [showLabel "Server: "]) [] ++
if multiuser if multiuser
[showText "User: " , showLabel thisUser, showText " - "] [] ++ [showText "User: " , showLabel thisUser, showText " - "] [] ++
if (thrinfo == "" ) [] [showLowLight thrinfo, showText " - "] ++ if (thrinfo == "" ) [] [showLowLight thrinfo, showText " - "] ++
...@@ -259,9 +259,10 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO ...@@ -259,9 +259,10 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO
) )
Just userInfo -> userInfo Just userInfo -> userInfo
# iTaskInfoDivs = (mkDiv showCompletePage "debug-client" [showLabel "Client: ",Hr []]) ++ # iTaskInfoDivs = IF_Ajax (
(IF_ClientServer (mkDiv showCompletePage "debug-client" [showLabel "Client: ",Hr []]) []) ++
(mkDiv showCompletePage "debug-server" iTaskInfo) (mkDiv showCompletePage "debug-server" iTaskInfo)
) []
# iTaskTraceInfo = showOptions staticInfo.threadTableLoc ++ processadmin ++ threadtrace ++ [printTrace2 trace ] # iTaskTraceInfo = showOptions staticInfo.threadTableLoc ++ processadmin ++ threadtrace ++ [printTrace2 trace ]
| showCompletePage = ((toServer,""),[Ajax [("thePage",iTaskHeader ++ | showCompletePage = ((toServer,""),[Ajax [("thePage",iTaskHeader ++
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment