Mercurial > urweb

diff demo/more/conference.ur @ 1029:53a22f46f377

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Seeing others' reviews
author Adam Chlipala <adamc@hcoop.net>
date Mon, 02 Nov 2009 14:22:29 -0500
parents be1aec7333a5
children 6bcc1020d5cd
line wrap: on
line diff
--- a/demo/more/conference.ur	Mon Nov 02 14:14:32 2009 -0500
+++ b/demo/more/conference.ur	Mon Nov 02 14:22:29 2009 -0500
@@ -348,6 +348,16 @@
                                       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 @@
                        <submit value="Save" action={saveReview}/>
                      </form>
                    </xml>}
+
+                <hr/>
+                <h2>Other reviews</h2>
+
+                {otherReviews}
               </body></xml>
         end