Mercurial > urweb

comparison demo/sql.ur @ 471:20fab0e96217

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tree demo working (and other assorted regressions fixed)
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Nov 2008 19:43:48 -0500
parents c471345f5165
children 1a317a707d71
comparison
equal deleted inserted replaced
470:7cb418e9714f 471:20fab0e96217
25 </form> 25 </form>
26 </xml> 26 </xml>
27 27
28 and add r = 28 and add r =
29 dml (INSERT INTO t (A, B, C, D) 29 dml (INSERT INTO t (A, B, C, D)
30 VALUES ({readError r.A}, {readError r.B}, {r.C}, {r.D})); 30 VALUES ({[readError r.A]}, {[readError r.B]}, {[r.C]}, {[r.D]}));
31 xml <- list (); 31 xml <- list ();
32 return <xml><body> 32 return <xml><body>
33 <p>Row added.</p> 33 <p>Row added.</p>
34 34
35 {xml} 35 {xml}
36 </body></xml> 36 </body></xml>
37 37
38 and delete a = 38 and delete a =
39 dml (DELETE FROM t 39 dml (DELETE FROM t
40 WHERE t.A = {a}); 40 WHERE t.A = {[a]});
41 xml <- list (); 41 xml <- list ();
42 return <xml><body> 42 return <xml><body>
43 <p>Row deleted.</p> 43 <p>Row deleted.</p>
44 44
45 {xml} 45 {xml}