Mercurial > urweb
annotate tests/both.ur @ 1451:b6ce8ef0ea88
Before allowing an indirect return, check (dynamically, for now) that we aren't in an RPC handler
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 17 Apr 2011 13:43:00 -0400 |
parents | a5eb8f87bc17 |
children |
rev | line source |
---|---|
adamc@1046 | 1 fun main () : transaction page = return <xml> |
adamc@1046 | 2 <body> |
adamc@1046 | 3 <form> |
adamc@1046 | 4 <textbox{#Text}/><submit action={submit}/> |
adamc@1046 | 5 </form> |
adamc@1046 | 6 </body> |
adamc@1046 | 7 </xml> |
adamc@1046 | 8 |
adamc@1046 | 9 and submit r = return <xml/> |