diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-11-02 14:22:29 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-11-02 14:22:29 -0500 |
| commit | d0615b47fe12ed930d0e29f6840542753037ef0b (patch) | |
| tree | 2f0e91a597adc9f212b2c5913a0bd3fd2ad1990b /demo/more/conference.ur | |
| parent | 23d8701eaef5c792f0cd385067912c56eab90a9b (diff) | |
Seeing others' reviews
Diffstat (limited to 'demo/more/conference.ur')
| -rw-r--r-- | demo/more/conference.ur | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/demo/more/conference.ur b/demo/more/conference.ur index 7de3fc51..3c262e15 100644 --- a/demo/more/conference.ur +++ b/demo/more/conference.ur @@ -348,6 +348,16 @@ functor Make(M : sig FROM review WHERE review.User = {[me.Id]} AND review.Paper = {[id]}); + otherReviews <- queryX (SELECT user.Nam, review.{{map fst M.review}} + FROM review JOIN user ON review.User = user.Id + WHERE review.Paper = {[id]} + AND review.User <> {[me.Id]}) + (fn r => <xml> + <hr/> + <b>User:</b> {[r.User.Nam]}<br/> + {allContent M.review r.Review M.reviewFolder} + </xml>); + case ro of None => error <xml>Paper not found!</xml> | Some r => return <xml><body> @@ -384,6 +394,11 @@ functor Make(M : sig <submit value="Save" action={saveReview}/> </form> </xml>} + + <hr/> + <h2>Other reviews</h2> + + {otherReviews} </body></xml> end |