Commit 6b8a1099 authored by Rinus Plasmeijer's avatar Rinus Plasmeijer

*** empty log message ***


git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@60 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 965bdb16
This diff is collapsed.
......@@ -277,7 +277,9 @@ clearIncPUser user f hst = setPUser user (\r -> {r & newThread = False, deletedT
setSVersionNr :: !Int !(Int -> Int) !*HSt -> (Form !Int,!*HSt)
setSVersionNr user f hst = mkStoreForm (Init, nFormId (usersessionVersionNr user) 0 <@ NoForm) f hst
// ******************************************************************************************************
// Main routine for the creation of the workflow page
// ******************************************************************************************************
startTstTask :: !Int !Bool !Bool !Bool !(!Bool,![BodyTag]) !(Task a) !*TSt -> (![BodyTag],!*HSt) //| iCreate a
startTstTask thisUser multiuser traceOn versionsOn (userchanged,multiuserform) taska tst=:{hst,tasknr,staticInfo}
......@@ -300,12 +302,7 @@ startTstTask thisUser multiuser traceOn versionsOn (userchanged,multiuserform)
, Td [Td_Align Aln_Right] (multiuserform ++ refresh.form ++ ifTraceOn traceAsked.form)] ]]++
[Hr []]
| versionconflict
/*
# iTaskHeader = [Table [Tbl_Width (Percent 100)] [Tr []
[ Td [] [BCTxt Aqua "i-Task", Br, CTxt Yellow " - Multi-User Workflow System "]
, Td [Td_Align Aln_Right] (multiuserform ++ refresh.form ++ ifTraceOn traceAsked.form)] ]]++
[Hr []]
*/ # iTaskInfo = mkDiv "iTaskInfo" [CTxt Yellow "Cannot apply request. Version conflict. Please refresh the page!", Hr []]
# iTaskInfo = mkDiv "iTaskInfo" [CTxt Yellow "Cannot apply request. Version conflict. Please refresh the page!", Hr []]
= ([Ajax [ ("thePage",iTaskHeader ++ iTaskInfo)
]
],hst)
......
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