summaryrefslogtreecommitdiff
path: root/demo/more/conference.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-11-02 14:22:29 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-11-02 14:22:29 -0500
commitd0615b47fe12ed930d0e29f6840542753037ef0b (patch)
tree2f0e91a597adc9f212b2c5913a0bd3fd2ad1990b /demo/more/conference.ur
parent23d8701eaef5c792f0cd385067912c56eab90a9b (diff)
Seeing others' reviews
Diffstat (limited to 'demo/more/conference.ur')
-rw-r--r--demo/more/conference.ur15
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