Mercurial > urweb

annotate demo/crud3.ur @ 2238:7f92d70a326e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Only use string (rather than numeric, etc.) primitives in parsed SQL statements.
author Ziv Scully <ziv@mit.edu>
date Mon, 06 Jul 2015 01:31:04 -0700
parents c7b9a33c26c8
children
rev   line source
adamc@781 1 table t : {Id : int, Text : string}
adamc@781 2 PRIMARY KEY Id
adamc@781 3
adamc@781 4 open Crud.Make(struct
adamc@781 5 val tab = t
adamc@781 6
adamc@781 7 val title = "Crud3"
adamc@781 8
adamc@781 9 val cols = {Text = {Nam = "Text",
adamc@781 10 Show = txt,
adamc@823 11 Widget = (fn [nm :: Name] => <xml>
adamc@781 12 <subform{nm}>
adamc@781 13 <textbox{#A}/>
adamc@781 14 <textbox{#B}/>
adamc@781 15 </subform>
adamc@781 16 </xml>),
adamc@823 17 WidgetPopulated = (fn [nm :: Name] s => <xml>
adamc@781 18 <subform{nm}>
adamc@781 19 <textbox{#A} value={s}/>
adamc@781 20 <textbox{#B}/>
adamc@781 21 </subform>
adamc@781 22 </xml>),
adam@1303 23 Parse = (fn p : {A : string, B : string} => p.A ^ p.B),
adamc@781 24 Inject = _
adamc@781 25 }
adamc@781 26 }
adamc@781 27 end)