Mercurial > urweb
annotate tests/subforms.ur @ 1728:95d3b4f26f59
Ensure proper ordering of <script> execution, to bring identifiers into scope in time
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Fri, 27 Apr 2012 09:43:09 -0400 |
parents | 16b34dc2e29c |
children |
rev | line source |
---|---|
adamc@758 | 1 fun handler' ls = |
adamc@758 | 2 case ls of |
adamc@758 | 3 Nil => <xml/> |
adamc@761 | 4 | Cons (r, ls) => <xml><li>{[r.Nam]}, {[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml> |
adamc@758 | 5 |
adamc@758 | 6 fun handler r = return <xml><body> |
adamc@759 | 7 {[r.A]}<br/> |
adamc@759 | 8 {handler' r.Sub} |
adamc@759 | 9 {[r.C]} |
adamc@758 | 10 </body></xml> |
adamc@758 | 11 |
adamc@758 | 12 fun main () = return <xml><body> |
adamc@758 | 13 <form> |
adamc@758 | 14 <textbox{#A}/><br/> |
adamc@758 | 15 <subforms{#Sub}> |
adamc@758 | 16 <entry> |
adamc@761 | 17 <hidden{#Nam} value="Sparky"/> |
adamc@758 | 18 <textbox{#A}/><br/> |
adamc@758 | 19 <textbox{#B}/><br/> |
adamc@758 | 20 <textbox{#Sub}/><br/> |
adamc@758 | 21 </entry> |
adamc@759 | 22 |
adamc@759 | 23 <entry> |
adamc@761 | 24 <hidden{#Nam} value="Snarky"/> |
adamc@759 | 25 <textbox{#A}/><br/> |
adamc@759 | 26 <textbox{#B}/><br/> |
adamc@759 | 27 <textbox{#Sub}/><br/> |
adamc@759 | 28 </entry> |
adamc@758 | 29 </subforms> |
adamc@758 | 30 <textbox{#C}/><br/> |
adamc@758 | 31 <submit action={handler}/> |
adamc@758 | 32 </form> |
adamc@758 | 33 </body></xml> |