Artifact
7d0aadf21d03eb1377ed509a84d402e98124e265:
0000: 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 ;; Copyright 200
0010: 37 2d 32 30 30 38 2c 20 4d 61 74 74 68 65 77 20 7-2008, Matthew
0020: 57 65 6c 6c 61 6e 64 2e 20 6d 61 74 74 40 69 61 Welland. matt@ia
0030: 74 6f 61 2e 63 6f 6d 20 41 6c 6c 20 72 69 67 68 toa.com All righ
0040: 74 73 20 72 65 73 65 72 76 65 64 2e 0a 3b 3b 20 ts reserved..;;
0050: 0a 28 73 3a 69 66 2d 73 65 73 73 69 6f 6e 76 61 .(s:if-sessionva
0060: 72 20 0a 20 22 65 6d 61 69 6c 22 0a 20 28 6c 69 r . "email". (li
0070: 73 74 0a 20 20 28 73 3a 68 31 20 22 50 6c 65 64 st. (s:h1 "Pled
0080: 67 65 20 6e 6f 77 21 22 29 0a 20 20 28 73 3a 66 ge now!"). (s:f
0090: 69 65 6c 64 73 65 74 20 0a 20 20 20 22 50 6c 65 ieldset . "Ple
00a0: 64 67 65 22 0a 20 20 20 28 73 3a 66 6f 72 6d 20 dge". (s:form
00b0: 27 61 63 74 69 6f 6e 20 22 70 6c 65 64 67 65 2e 'action "pledge.
00c0: 70 6c 65 64 67 65 22 0a 09 20 20 20 27 6d 65 74 pledge".. 'met
00d0: 68 6f 64 20 22 70 6f 73 74 22 0a 09 20 20 20 28 hod "post".. (
00e0: 73 3a 69 20 22 20 2d 20 49 20 77 69 6c 6c 20 76 s:i " - I will v
00f0: 6f 74 65 22 20 28 73 3a 62 20 22 4f 4e 4c 59 22 ote" (s:b "ONLY"
0100: 29 20 22 20 66 6f 72 20 61 20 63 61 6e 64 69 64 ) " for a candid
0110: 61 74 65 20 77 68 6f 20 73 75 70 70 6f 72 74 73 ate who supports
0120: 20 61 70 70 72 6f 76 61 6c 20 76 6f 74 69 6e 67 approval voting
0130: 21 22 29 0a 09 20 20 20 28 73 3a 74 61 62 6c 65 !").. (s:table
0140: 0a 09 20 20 20 20 28 73 3a 74 72 20 28 73 3a 74 .. (s:tr (s:t
0150: 64 20 22 59 65 73 22 29 20 20 28 73 3a 74 64 20 d "Yes") (s:td
0160: 28 73 3a 69 6e 70 75 74 20 27 74 79 70 65 20 22 (s:input 'type "
0170: 72 61 64 69 6f 22 20 20 20 20 27 6e 61 6d 65 20 radio" 'name
0180: 22 70 6c 65 64 67 65 5f 61 6e 73 77 65 72 22 20 "pledge_answer"
0190: 27 76 61 6c 75 65 20 22 79 65 73 22 29 29 29 0a 'value "yes"))).
01a0: 09 20 20 20 20 28 73 3a 74 72 20 28 73 3a 74 64 . (s:tr (s:td
01b0: 20 22 4e 6f 22 29 20 20 20 28 73 3a 74 64 20 28 "No") (s:td (
01c0: 73 3a 69 6e 70 75 74 20 27 74 79 70 65 20 22 72 s:input 'type "r
01d0: 61 64 69 6f 22 20 20 20 20 27 6e 61 6d 65 20 22 adio" 'name "
01e0: 70 6c 65 64 67 65 5f 61 6e 73 77 65 72 22 20 27 pledge_answer" '
01f0: 76 61 6c 75 65 20 22 6e 6f 22 29 29 29 0a 09 20 value "no")))..
0200: 20 20 20 28 73 3a 74 72 20 28 73 3a 74 64 20 22 (s:tr (s:td "
0210: 4d 61 79 62 65 22 29 28 73 3a 74 64 20 28 73 3a Maybe")(s:td (s:
0220: 69 6e 70 75 74 20 27 74 79 70 65 20 22 72 61 64 input 'type "rad
0230: 69 6f 22 20 20 20 20 27 6e 61 6d 65 20 22 70 6c io" 'name "pl
0240: 65 64 67 65 5f 61 6e 73 77 65 72 22 20 27 76 61 edge_answer" 'va
0250: 6c 75 65 20 22 6d 61 79 62 65 22 29 29 29 29 0a lue "maybe")))).
0260: 09 20 20 20 28 73 3a 69 6e 70 75 74 20 27 74 79 . (s:input 'ty
0270: 70 65 20 22 62 75 74 74 6f 6e 22 20 27 6e 61 6d pe "button" 'nam
0280: 65 20 22 70 6c 65 64 67 65 5f 61 6e 73 77 65 72 e "pledge_answer
0290: 22 20 27 76 61 6c 75 65 20 22 53 75 62 6d 69 74 " 'value "Submit
02a0: 22 29 29 29 29 29 ")))))