Artifact fb61146f5234b94340827bdf0b8fa22fbb31ea4b:

• File example/pages/preferences/view.scm — part of check-in [d3abae2d97] at 2011-05-15 20:43:16 on branch trunk — Initial check in after moving from http://www.kiatoa.com/fossils/opensrc (user: matt, size: 494) [annotate] [blame] [check-ins using]

;; Copyright 2007-2008, Matthew Welland. matt@iatoa.com All rights reserved.
;; 
;; preferences/view.scm
;;
(s:div
 'class "node"
 (s:h1 "Register your email address")
 (s:p "Adds 9 pts to your score the first time you do it and enables very occasional email updates. If you change your email address
       you need to re-register to keep your 9 pts.")
 (s:form 'action "preferences.register_email"
	 'method "post"
	  (s:input 'type "submit" 'name "register_email" 'value "Register Email")))