diff options
Diffstat (limited to 'demo/chat.ur')
-rw-r--r-- | demo/chat.ur | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/demo/chat.ur b/demo/chat.ur index 067397eb..52c344be 100644 --- a/demo/chat.ur +++ b/demo/chat.ur @@ -6,7 +6,7 @@ sequence s table t : { Id : int, Title : string, Room : Room.topic } PRIMARY KEY Id -fun chat id = +fun chat id () = r <- oneRow (SELECT t.Title, t.Room FROM t WHERE t.Id = {[id]}); ch <- Room.subscribe r.T.Room; @@ -55,12 +55,13 @@ fun list () = count <- Room.subscribers r.T.Room; return <xml><tr> <td>{[r.T.Id]}</td> - <td><a link={chat r.T.Id}>{[r.T.Title]}</a></td> + <td>{[r.T.Title]}</td> <td>{[count]}</td> - <td><a link={delete r.T.Id}>[delete]</a></td> + <td><form><submit action={chat r.T.Id} value="Enter"/></form></td> + <td><form><submit action={delete r.T.Id} value="Delete"/></form></td> </tr></xml>) -and delete id = +and delete id () = dml (DELETE FROM t WHERE Id = {[id]}); main () |