blob: c45681e0041cff547ed396ca30b8f2f35fa9c557 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
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>
|
