Mercurial > urweb

view tests/subforms.ur @ 2151:4cd36865e0b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
assert function to use with location literal _LOC_
author Gabriel Riba Faura <griba2001@gmail.com>
date Wed, 03 Jun 2015 15:07:46 +0200
parents 16b34dc2e29c
children
line wrap: on
line source
fun handler' ls =
    case ls of
        Nil => <xml/>
      | Cons (r, ls) => <xml><li>{[r.Nam]}, {[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml>

fun handler r = return <xml><body>
  {[r.A]}<br/>
  {handler' r.Sub}
  {[r.C]}
</body></xml>

fun main () = return <xml><body>
  <form>
    <textbox{#A}/><br/>
    <subforms{#Sub}>
      <entry>
        <hidden{#Nam} value="Sparky"/>
        <textbox{#A}/><br/>
        <textbox{#B}/><br/>
        <textbox{#Sub}/><br/>
      </entry>

      <entry>
        <hidden{#Nam} value="Snarky"/>
        <textbox{#A}/><br/>
        <textbox{#B}/><br/>
        <textbox{#Sub}/><br/>
      </entry>
    </subforms>
    <textbox{#C}/><br/>
    <submit action={handler}/>
  </form>
</body></xml>