Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1028:8b7971e74335 1029:53a22f46f377
346 (fn r => <xml><li>{[r.User.Nam]}</li></xml>); 346 (fn r => <xml><li>{[r.User.Nam]}</li></xml>);
347 myReview <- oneOrNoRows1 (SELECT review.{{map fst M.review}} 347 myReview <- oneOrNoRows1 (SELECT review.{{map fst M.review}}
348 FROM review 348 FROM review
349 WHERE review.User = {[me.Id]} 349 WHERE review.User = {[me.Id]}
350 AND review.Paper = {[id]}); 350 AND review.Paper = {[id]});
351 otherReviews <- queryX (SELECT user.Nam, review.{{map fst M.review}}
352 FROM review JOIN user ON review.User = user.Id
353 WHERE review.Paper = {[id]}
354 AND review.User <> {[me.Id]})
355 (fn r => <xml>
356 <hr/>
357 <b>User:</b> {[r.User.Nam]}<br/>
358 {allContent M.review r.Review M.reviewFolder}
359 </xml>);
360
351 case ro of 361 case ro of
352 None => error <xml>Paper not found!</xml> 362 None => error <xml>Paper not found!</xml>
353 | Some r => return <xml><body> 363 | Some r => return <xml><body>
354 <h1>Paper #{[id]}</h1> 364 <h1>Paper #{[id]}</h1>
355 365
382 <form> 392 <form>
383 {allPopulated M.review myReview M.reviewFolder} 393 {allPopulated M.review myReview M.reviewFolder}
384 <submit value="Save" action={saveReview}/> 394 <submit value="Save" action={saveReview}/>
385 </form> 395 </form>
386 </xml>} 396 </xml>}
397
398 <hr/>
399 <h2>Other reviews</h2>
400
401 {otherReviews}
387 </body></xml> 402 </body></xml>
388 end 403 end
389 404
390 and download id = 405 and download id =
391 checkPaper id; 406 checkPaper id;