Mercurial > urweb

comparison demo/sql.ur @ 434:c471345f5165

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove need for '() <-' notation
author Adam Chlipala <adamc@hcoop.net>
date Mon, 27 Oct 2008 08:27:45 -0400
parents c5a3d223f157
children 20fab0e96217
comparison
equal deleted inserted replaced
433:659c17441250 434:c471345f5165
24 </table> 24 </table>
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}