Posted to tcl by Colin at Sun Aug 24 23:11:38 GMT 2008view raw
- Coco init copf /copf/ {r {
- set referer [Http Referer $r] ;# remember referer
- set r [yield] ;# initially just redirect
- set r [form $r {
- [<h1> "Personal Information"]
- %MESSAGE
- [<form> info {
- [<fieldset> personal {
- [<legend> [<submit> submit "Personal Information"]]
- [<text> forename title "Forename" $forename]
- [<text> surname title "Surname" $surname]
- [<br>][<text> phone title "Phone number" $phone]
- }]
- }]
- } forename {
- "Forename can't be empty."
- {$forename ne ""}
- } surname {
- "Surname can't be empty."
- {$surname ne ""}
- } phone {
- "Phone number has to look like a phone number."
- {[regexp {^[-0-9+ ]+$} $phone]}
- }]
- # get the result dict and make vars from it
- set result [dict get $r -values]
- dict with result {}
- # resume where you were
- return [Http Redirect $r $referer]
- }}
Comments
Posted by colin at Mon Aug 25 00:23:02 GMT 2008 [text] [code]
The following lines are now redundant # get the result dict and make vars from it set result [dict get $r -values] dict with result {}