Mercurial > urweb
comparison demo/more/conferenceFields.ur @ 1029:53a22f46f377
Seeing others' reviews
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Mon, 02 Nov 2009 14:22:29 -0500 |
parents | 16f7cb0891b6 |
children | 5d9f47124c4c |
comparison
equal
deleted
inserted
replaced
1028:8b7971e74335 | 1029:53a22f46f377 |
---|---|
1 open Meta | 1 open Meta |
2 | 2 |
3 val title = string "Title" | 3 val title = string "Title" |
4 val abstract = textarea "Abstract" | 4 val abstract = textarea "Abstract" |
5 val commentsForAuthors = textarea "Comments for Authors" | |
5 | 6 |
6 fun charIn s = | 7 fun charIn s = |
7 if String.length s = 0 then | 8 if String.length s = 0 then |
8 error <xml>Impossible: Empty option value</xml> | 9 error <xml>Impossible: Empty option value</xml> |
9 else | 10 else |