Posted to tcl by Colin at Sun Aug 24 23:11:38 GMT 2008view raw

  1. Coco init copf /copf/ {r {
  2. set referer [Http Referer $r] ;# remember referer
  3. set r [yield] ;# initially just redirect
  4.  
  5. set r [form $r {
  6. [<h1> "Personal Information"]
  7. %MESSAGE
  8. [<form> info {
  9. [<fieldset> personal {
  10. [<legend> [<submit> submit "Personal Information"]]
  11. [<text> forename title "Forename" $forename]
  12. [<text> surname title "Surname" $surname]
  13. [<br>][<text> phone title "Phone number" $phone]
  14. }]
  15. }]
  16. } forename {
  17. "Forename can't be empty."
  18. {$forename ne ""}
  19. } surname {
  20. "Surname can't be empty."
  21. {$surname ne ""}
  22. } phone {
  23. "Phone number has to look like a phone number."
  24. {[regexp {^[-0-9+ ]+$} $phone]}
  25. }]
  26.  
  27. # get the result dict and make vars from it
  28. set result [dict get $r -values]
  29. dict with result {}
  30.  
  31. # resume where you were
  32. return [Http Redirect $r $referer]
  33. }}
  34.  

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 {}