Mercurial > urweb
comparison demo/more/conference.ur @ 1029:53a22f46f377
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; |