Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
0ad200d4
Commit
0ad200d4
authored
Jun 02, 2008
by
Bas Lijnse
Browse files
Made dual line iTasks-info box. One line for the client and one for the server.
parent
90ea4765
Changes
1
Hide whitespace changes
Inline
Side-by-side
libraries/iTasks/iTasksHandler.icl
View file @
0ad200d4
...
@@ -154,7 +154,7 @@ where
...
@@ -154,7 +154,7 @@ where
=
taska
tst
// for doing the login
=
taska
tst
// for doing the login
|
not
activated
|
not
activated
#
iTaskHeader
=
[
showHighLight
"i-Task"
,
showLabel
" - Multi-User Workflow System "
,
Hr
[]]
#
iTaskHeader
=
[
showHighLight
"i-Task"
,
showLabel
" - Multi-User Workflow System "
,
Hr
[]]
#
iTaskInfo
=
mkDiv
"iTaskInfo
"
[
showText
"Login procedure... "
,
Hr
[]]
#
iTaskInfo
=
mkDiv
True
"debug-server
"
[
showText
"Login procedure... "
,
Hr
[]]
=
mkHtmlExcep
"workFlow"
(
True
,
""
)
[
Ajax
[
(
"thePage"
,
iTaskHeader
++
iTaskInfo
++
noFilter
html
)
// Login ritual cannot be handled by client
=
mkHtmlExcep
"workFlow"
(
True
,
""
)
[
Ajax
[
(
"thePage"
,
iTaskHeader
++
iTaskInfo
++
noFilter
html
)
// Login ritual cannot be handled by client
]]
hst
]]
hst
#
userOptions
=
determineUserOptions
[
TestModeOff
,
VersionCheck
,
ThreadStorage
TxtFile
:
startUpOptions
]
#
userOptions
=
determineUserOptions
[
TestModeOff
,
VersionCheck
,
ThreadStorage
TxtFile
:
startUpOptions
]
...
@@ -214,7 +214,9 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO
...
@@ -214,7 +214,9 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO
,
Td
[
Td_Align
Aln_Right
]
(
multiuserform
++
refresh
.
form
++
ifTraceOn
traceAsked
.
form
)]
]]++
,
Td
[
Td_Align
Aln_Right
]
(
multiuserform
++
refresh
.
form
++
ifTraceOn
traceAsked
.
form
)]
]]++
[
Hr
[]]
[
Hr
[]]
|
versionconflict
|
versionconflict
#
iTaskInfo
=
mkDiv
"iTaskInfo"
[
showLabel
"Cannot apply request. Version conflict. Please refresh the page!"
,
Hr
[]]
#
iTaskInfo
=
(
mkDiv
True
"debug-client"
[
showLabel
"Client: "
,
Hr
[]])
++
(
mkDiv
True
"debug-server"
[
showLabel
"Server: Cannot apply request. Version conflict. Please refresh the page!"
,
Hr
[]])
=
((
True
,
""
),[
Ajax
[(
"thePage"
,
iTaskHeader
++
iTaskInfo
)]],
hst
)
=
((
True
,
""
),[
Ajax
[(
"thePage"
,
iTaskHeader
++
iTaskInfo
)]],
hst
)
// Here the iTasks are evaluated ...
// Here the iTasks are evaluated ...
...
@@ -240,9 +242,8 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO
...
@@ -240,9 +242,8 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO
#
(
processadmin
,
tst
=:{
hst
})
=
showWorkflows
activated
tst
#
(
processadmin
,
tst
=:{
hst
})
=
showWorkflows
activated
tst
#
(
threadcode
,
taskname
,
mainbuts
,
subbuts
,
seltask
,
hst
)
#
(
threadcode
,
taskname
,
mainbuts
,
subbuts
,
seltask
,
hst
)
=
Filter
showCompletePage
thrOwner
html
hst
=
Filter
showCompletePage
thrOwner
html
hst
#
iTaskInfo
=
mkDiv
"iTaskInfo"
#
iTaskInfo
=
case
headerOff
of
case
headerOff
of
Nothing
->
Nothing
->
(
IF_Ajax
(
IF_ClientServer
(
IF_ClientTasks
[
showLabel
"Client: "
]
[
showLabel
"Server: "
])
[])
[]
++
(
IF_Ajax
(
IF_ClientServer
(
IF_ClientTasks
[
showLabel
"Client: "
]
[
showLabel
"Server: "
])
[])
[]
++
if
multiuser
if
multiuser
...
@@ -257,9 +258,14 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO
...
@@ -257,9 +258,14 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO
[
Br
,
Hr
[]]
[
Br
,
Hr
[]]
)
)
Just
userInfo
->
userInfo
Just
userInfo
->
userInfo
#
iTaskInfoDivs
=
(
mkDiv
showCompletePage
"debug-client"
[
showLabel
"Client: "
,
Hr
[]])
++
(
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
++
iTaskInfo
++
iTaskInfo
Divs
++
if
(
doTrace
&&
traceOn
)
if
(
doTrace
&&
traceOn
)
iTaskTraceInfo
iTaskTraceInfo
[
leftright
taskname
subbuts
[
leftright
taskname
subbuts
...
@@ -269,7 +275,7 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO
...
@@ -269,7 +275,7 @@ startTstTask thisUser multiuser (userchanged,multiuserform) useroptions=:{traceO
]
]
,
hst
)
,
hst
)
#
(
newthread
,
oldthreads
)=
(
hd
threads
,
tl
threads
)
#
(
newthread
,
oldthreads
)=
(
hd
threads
,
tl
threads
)
|
otherwise
=
((
toServer
,
""
),[
Ajax
(
[(
"iTaskInfo
"
,
iTaskInfo
)]
++
// header ino
|
otherwise
=
((
toServer
,
""
),[
Ajax
([(
IF_Client
"debug-client"
"debug-server
"
,
iTaskInfo
)]
++
// header in
f
o
[(
showTaskNr
childthreads
,[
showText
" "
])
\\
childthreads
<-
oldthreads
]
++
//clear childthreads, since parent thread don't need to be on this page
[(
showTaskNr
childthreads
,[
showText
" "
])
\\
childthreads
<-
oldthreads
]
++
//clear childthreads, since parent thread don't need to be on this page
[(
showTaskNr
newthread
,
if
(
isEmpty
threadcode
)
seltask
threadcode
)]
// task info
[(
showTaskNr
newthread
,
if
(
isEmpty
threadcode
)
seltask
threadcode
)]
// task info
)
)
...
@@ -371,17 +377,16 @@ where
...
@@ -371,17 +377,16 @@ where
|
otherwise
=
([],
accu
)
|
otherwise
=
([],
accu
)
Collect
thisuser
taskuser
accu
(
DivCode
id
tree
)
Collect
thisuser
taskuser
accu
(
DivCode
id
tree
)
#
(
html
,
accu
)
=
Collect
thisuser
taskuser
accu
tree
#
(
html
,
accu
)
=
Collect
thisuser
taskuser
accu
tree
|
thisuser
==
taskuser
=
(
mkDiv
id
html
,
accu
)
|
thisuser
==
taskuser
=
(
mkDiv
True
id
html
,
accu
)
=
([],
accu
)
=
([],
accu
)
// ******************************************************************************************************
// ******************************************************************************************************
// Html Printing Utilities...
// Html Printing Utilities...
// ******************************************************************************************************
// ******************************************************************************************************
mkDiv
::
String
HtmlCode
->
HtmlCode
mkDiv
::
!
Bool
!
String
!
HtmlCode
->
HtmlCode
mkDiv
id
bodytag
=
[
normaldiv
]
mkDiv
False
id
bodytag
=
bodytag
where
mkDiv
True
id
bodytag
=
[
Div
[
`
Div_Std
[
Std_Id
id
,
Std_Class
"thread"
]]
bodytag
]
normaldiv
=
Div
[
`
Div_Std
[
Std_Id
id
,
Std_Class
"thread"
]]
bodytag
// ******************************************************************************************************
// ******************************************************************************************************
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment