Mercurial > urweb
view tests/url.ur @ 753:d484df4e841a
Preparing to allow views in SELECT FROM clauses
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 28 Apr 2009 14:02:23 -0400 |
parents | e28637743279 |
children | c125df6fabfc |
line wrap: on
line source
val url = "http://www.yahoo.com/" fun readersChoice r = return <xml><body> <a href={bless r.Url}>Your pick, boss</a> </body></xml> fun main () : transaction page = return <xml><body> <a href="http://www.google.com/">Google!</a> <a href={bless url}>Yahoo!</a><br/> <br/> <form><textbox{#Url}/> <submit action={readersChoice}/></form> </body></xml>