diff options
author | 2009-11-02 15:54:22 -0500 | |
---|---|---|
committer | 2009-11-02 15:54:22 -0500 | |
commit | ba68c8b40a233798be343c6154d11c165a5b1489 (patch) | |
tree | 91f7eba1badb6416820f86e3fec513a2d40b02d2 /demo/more/decision.ur | |
parent | f078aa703a4ba19b06e6d7c9a49fc9caae26016c (diff) |
Decision status placeholder
Diffstat (limited to 'demo/more/decision.ur')
-rw-r--r-- | demo/more/decision.ur | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/demo/more/decision.ur b/demo/more/decision.ur index 986658e8..b93658ee 100644 --- a/demo/more/decision.ur +++ b/demo/more/decision.ur @@ -11,6 +11,8 @@ functor Make(M : sig constraint [Id, Decision] ~ paperOther include Conference.INPUT where con paper = [Decision = option bool] ++ paperOther + + val status : ctx ::: {Unit} -> [[Body] ~ ctx] => $paperOther -> xml ([Body] ++ ctx) [] [] end) = struct open M @@ -22,6 +24,7 @@ functor Make(M : sig ORDER BY paper.Id) (fn r => <xml><tr> <td>{useMore (summarizePaper (r.Paper -- #Id))}</td> + <td>{useMore (status (r.Paper -- #Id -- #Decision))}</td> <td><entry> <hidden{#Paper} value={show r.Paper.Id}/> <select{#Decision}> @@ -35,7 +38,7 @@ functor Make(M : sig <form><subforms{#Papers}> <table> - <tr> <th>Paper</th> <th>Decision</th> </tr> + <tr> <th>Paper</th> <th>Status</th> <th>Decision</th> </tr> {ps} </table> </subforms></form> |