Mercurial > urweb
view demo/tree.ur @ 2024:6372a742ab04
Allow '+' char in blessMime
See this one [1] for an example
[1] - http://www.w3.org/TR/SVGTiny12/mimereg.html
author | Sergey Mironov <grrwlf@gmail.com> |
---|---|
date | Thu, 05 Jun 2014 20:36:12 +0000 |
parents | d069b193ed6b |
children |
line wrap: on
line source
sequence s table t : { Id : int, Parent : option int, Nam : string } PRIMARY KEY Id, CONSTRAINT F FOREIGN KEY Parent REFERENCES t (Id) ON DELETE CASCADE open TreeFun.Make(struct con id = #Id con parent = #Parent val tab = t end) fun row r = <xml> #{[r.Id]}: {[r.Nam]} <form><submit action={del r.Id} value="Delete"/></form> <form> Add child: <textbox{#Nam}/> <submit action={add (Some r.Id)}/> </form> </xml> and main () = xml <- tree row None; return <xml><body> {xml} <form> Add a top-level node: <textbox{#Nam}/> <submit action={add None}/> </form> </body></xml> and add parent r = id <- nextval s; dml (INSERT INTO t (Id, Parent, Nam) VALUES ({[id]}, {[parent]}, {[r.Nam]})); main () and del id () = dml (DELETE FROM t WHERE Id = {[id]}); main ()