Artifact
00ad05ecb396c3c4cd470d0c78db6e563dfcbf83:
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 4b 69 61 74 6f 61 2e Welland. Kiatoa.
0030: 63 6f 6d 20 41 6c 6c 20 72 69 67 68 74 73 20 72 com All rights r
0040: 65 73 65 72 76 65 64 2e 0a 3b 3b 20 0a 0a 3b 3b eserved..;; ..;;
0050: 20 4e 6f 74 65 3a 20 74 68 65 20 28 6c 69 73 74 Note: the (list
0060: 20 69 73 20 61 63 74 75 61 6c 6c 79 20 6e 6f 20 is actually no
0070: 6c 6f 6e 67 65 72 20 6e 65 65 64 65 64 2e 20 0a longer needed. .
0080: 0a 28 6c 69 73 74 0a 20 28 73 3a 69 66 2d 73 65 .(list. (s:if-se
0090: 73 73 69 6f 6e 76 61 72 20 0a 20 20 22 65 6d 61 ssionvar . "ema
00a0: 69 6c 22 0a 20 20 28 73 3a 69 66 2d 73 65 73 73 il". (s:if-sess
00b0: 69 6f 6e 76 61 72 20 0a 20 20 20 22 76 6f 74 65 ionvar . "vote
00c0: 64 22 0a 20 20 20 22 57 65 20 61 72 65 20 67 6c d". "We are gl
00d0: 61 64 20 79 6f 75 20 74 72 69 65 64 20 61 70 70 ad you tried app
00e0: 72 6f 76 61 6c 20 76 6f 74 69 6e 67 2e 20 54 72 roval voting. Tr
00f0: 79 20 61 67 61 69 6e 20 74 6f 20 73 65 65 20 68 y again to see h
0100: 6f 77 20 74 68 65 20 73 79 73 74 65 6d 20 77 6f ow the system wo
0110: 72 6b 73 2e 20 44 6f 6e 27 74 20 77 6f 72 72 79 rks. Don't worry
0120: 20 61 62 6f 75 74 20 74 68 65 20 70 6f 6c 6c 20 about the poll
0130: 6e 75 6d 62 65 72 73 2e 20 54 68 69 73 20 70 6f numbers. This po
0140: 6c 6c 20 69 73 20 66 6f 72 20 79 6f 75 20 74 6f ll is for you to
0150: 20 70 6c 61 79 20 77 69 74 68 2e 22 29 29 0a 20 play with.")).
0160: 28 73 3a 66 69 65 6c 64 73 65 74 0a 20 20 22 50 (s:fieldset. "P
0170: 6f 6c 6c 22 0a 20 20 28 73 3a 63 65 6e 74 65 72 oll". (s:center
0180: 0a 20 20 20 28 73 3a 69 66 2d 70 61 72 61 6d 20 . (s:if-param
0190: 22 65 72 72 6d 73 67 22 0a 09 20 20 20 20 20 20 "errmsg"..
01a0: 20 28 6c 65 74 20 28 28 65 72 72 20 28 73 3a 67 (let ((err (s:g
01b0: 65 74 20 22 65 72 72 6d 73 67 22 29 29 29 0a 09 et "errmsg")))..
01c0: 09 20 28 73 3a 64 65 6c 21 20 22 65 72 72 6d 73 . (s:del! "errms
01d0: 67 22 29 0a 09 09 20 28 73 3a 65 72 72 2d 66 6f g")... (s:err-fo
01e0: 6e 74 20 65 72 72 29 29 29 0a 20 20 20 28 73 3a nt err))). (s:
01f0: 66 6f 72 6d 20 20 27 61 63 74 69 6f 6e 20 22 75 form 'action "u
0200: 73 70 72 65 73 69 64 65 6e 74 2e 76 6f 74 65 22 spresident.vote"
0210: 0a 09 20 20 20 20 27 6d 65 74 68 6f 64 20 22 70 .. 'method "p
0220: 6f 73 74 22 0a 09 20 20 20 20 28 73 3a 74 61 62 ost".. (s:tab
0230: 6c 65 20 27 62 6f 72 64 65 72 20 22 31 22 20 27 le 'border "1" '
0240: 63 65 6c 6c 73 70 61 63 69 6e 67 20 22 30 22 0a cellspacing "0".
0250: 09 09 20 20 20 20 20 28 73 3a 74 72 20 0a 09 09 .. (s:tr ...
0260: 20 20 20 20 20 20 28 73 3a 74 64 20 22 43 61 6e (s:td "Can
0270: 64 69 64 61 74 65 22 29 28 73 3a 74 64 20 22 50 didate")(s:td "P
0280: 61 72 74 79 22 29 28 73 3a 74 64 20 22 53 75 70 arty")(s:td "Sup
0290: 70 6f 72 74 73 20 61 70 70 72 6f 76 61 6c 3f 22 ports approval?"
02a0: 29 0a 09 09 20 20 20 20 20 20 28 73 3a 69 66 2d )... (s:if-
02b0: 73 65 73 73 69 6f 6e 76 61 72 20 0a 09 09 20 20 sessionvar ...
02c0: 20 20 20 20 20 22 76 6f 74 65 64 22 0a 09 09 20 "voted"...
02d0: 20 20 20 20 20 20 28 6c 69 73 74 20 28 73 3a 74 (list (s:t
02e0: 64 20 22 50 6c 75 72 61 6c 69 74 79 22 29 0a 09 d "Plurality")..
02f0: 09 09 20 20 20 20 20 28 73 3a 74 64 20 22 41 70 .. (s:td "Ap
0300: 70 72 6f 76 61 6c 22 29 0a 09 09 09 20 20 20 20 proval")....
0310: 20 28 73 3a 74 64 20 22 50 6c 75 72 61 6c 69 74 (s:td "Pluralit
0320: 79 22 20 28 63 6f 6e 63 20 22 28 22 20 63 61 6e y" (conc "(" can
0330: 64 69 64 61 74 65 73 3a 76 6f 74 65 2d 73 75 6d didates:vote-sum
0340: 2d 70 6c 75 72 61 6c 69 74 79 20 22 76 6f 74 65 -plurality "vote
0350: 73 22 20 22 29 22 29 29 0a 09 09 09 20 20 20 20 s" ")"))....
0360: 20 28 73 3a 74 64 20 22 41 70 70 72 6f 76 61 6c (s:td "Approval
0370: 22 20 20 28 63 6f 6e 63 20 22 28 22 20 63 61 6e " (conc "(" can
0380: 64 69 64 61 74 65 73 3a 76 6f 74 65 2d 73 75 6d didates:vote-sum
0390: 2d 70 6c 75 72 61 6c 69 74 79 20 22 76 6f 74 65 -plurality "vote
03a0: 73 22 20 22 29 22 29 29 29 0a 09 09 20 20 20 20 s" ")")))...
03b0: 20 20 20 28 6c 69 73 74 20 28 73 3a 74 64 20 22 (list (s:td "
03c0: 50 6c 75 72 61 6c 69 74 79 20 28 76 6f 74 65 20 Plurality (vote
03d0: 66 6f 72 20 6f 6e 65 20 6f 6e 6c 79 29 22 29 28 for one only)")(
03e0: 73 3a 74 64 20 22 41 70 70 72 6f 76 61 6c 20 28 s:td "Approval (
03f0: 76 6f 74 65 20 66 6f 72 20 61 6c 6c 20 77 68 69 vote for all whi
0400: 63 68 20 79 6f 75 20 61 70 70 72 6f 76 65 20 6f ch you approve o
0410: 66 29 22 29 29 29 29 0a 09 09 20 20 20 20 20 3b f)"))))... ;
0420: 3b 20 6d 61 70 20 74 68 65 20 70 6f 6c 6c 20 69 ; map the poll i
0430: 74 65 6d 73 20 66 6f 72 20 65 61 63 68 20 72 6f tems for each ro
0440: 77 0a 09 09 20 20 20 20 20 28 6d 61 70 20 28 6c w... (map (l
0450: 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 ambda (candidate
0460: 29 0a 09 09 09 20 20 20 20 28 6c 65 74 20 28 28 ).... (let ((
0470: 70 6f 6c 6c 2d 69 74 65 6d 2d 69 64 20 20 20 20 poll-item-id
0480: 20 20 20 20 20 20 28 6e 75 6d 62 65 72 2d 3e 73 (number->s
0490: 74 72 69 6e 67 20 28 63 61 6e 64 69 64 61 74 65 tring (candidate
04a0: 3a 67 65 74 2d 69 64 20 63 61 6e 64 69 64 61 74 :get-id candidat
04b0: 65 29 29 29 0a 09 09 09 09 20 20 28 70 6f 6c 6c e)))..... (poll
04c0: 2d 69 74 65 6d 2d 75 72 6c 20 20 20 20 20 20 20 -item-url
04d0: 20 20 28 73 3a 74 69 64 79 2d 75 72 6c 20 28 63 (s:tidy-url (c
04e0: 61 6e 64 69 64 61 74 65 3a 67 65 74 2d 75 72 6c andidate:get-url
04f0: 20 63 61 6e 64 69 64 61 74 65 29 29 29 0a 09 09 candidate)))...
0500: 09 09 20 20 28 70 6f 6c 6c 2d 69 74 65 6d 2d 6e .. (poll-item-n
0510: 61 6d 65 20 20 20 20 20 20 20 20 28 63 61 6e 64 ame (cand
0520: 69 64 61 74 65 3a 67 65 74 2d 6e 61 6d 65 20 63 idate:get-name c
0530: 61 6e 64 69 64 61 74 65 29 29 0a 09 09 09 09 20 andidate)).....
0540: 20 28 70 6f 6c 6c 2d 69 74 65 6d 2d 64 65 73 63 (poll-item-desc
0550: 72 69 70 74 69 6f 6e 20 28 63 61 6e 64 69 64 61 ription (candida
0560: 74 65 3a 67 65 74 2d 64 65 73 63 20 63 61 6e 64 te:get-desc cand
0570: 69 64 61 74 65 29 29 0a 09 09 09 09 20 20 28 70 idate))..... (p
0580: 6f 6c 6c 2d 69 74 65 6d 2d 70 65 72 63 65 6e 74 oll-item-percent
0590: 2d 61 20 20 20 28 71 75 6f 74 69 65 6e 74 20 28 -a (quotient (
05a0: 2a 20 31 30 30 20 28 63 61 6e 64 69 64 61 74 65 * 100 (candidate
05b0: 3a 67 65 74 2d 73 63 6f 72 65 20 63 61 6e 64 69 :get-score candi
05c0: 64 61 74 65 29 29 20 63 61 6e 64 69 64 61 74 65 date)) candidate
05d0: 73 3a 76 6f 74 65 2d 73 75 6d 2d 70 6c 75 72 61 s:vote-sum-plura
05e0: 6c 69 74 79 29 29 0a 09 09 09 09 20 20 28 70 6f lity))..... (po
05f0: 6c 6c 2d 69 74 65 6d 2d 70 65 72 63 65 6e 74 2d ll-item-percent-
0600: 70 20 20 20 28 71 75 6f 74 69 65 6e 74 20 28 2a p (quotient (*
0610: 20 31 30 30 20 28 63 61 6e 64 69 64 61 74 65 3a 100 (candidate:
0620: 67 65 74 2d 70 73 63 6f 72 65 20 63 61 6e 64 69 get-pscore candi
0630: 64 61 74 65 29 29 20 63 61 6e 64 69 64 61 74 65 date)) candidate
0640: 73 3a 76 6f 74 65 2d 73 75 6d 2d 70 6c 75 72 61 s:vote-sum-plura
0650: 6c 69 74 79 29 29 29 0a 09 09 09 20 20 20 20 20 lity)))....
0660: 20 28 6c 69 73 74 0a 09 09 09 20 20 20 20 20 20 (list....
0670: 20 28 73 3a 74 72 0a 09 09 09 09 28 73 3a 74 64 (s:tr.....(s:td
0680: 0a 09 09 09 09 20 28 69 66 20 70 6f 6c 6c 2d 69 ..... (if poll-i
0690: 74 65 6d 2d 75 72 6c 0a 09 09 09 09 20 20 20 20 tem-url.....
06a0: 20 28 73 3a 61 20 27 68 72 65 66 20 70 6f 6c 6c (s:a 'href poll
06b0: 2d 69 74 65 6d 2d 75 72 6c 20 27 74 61 72 67 65 -item-url 'targe
06c0: 74 20 22 5f 62 6c 61 6e 6b 22 20 70 6f 6c 6c 2d t "_blank" poll-
06d0: 69 74 65 6d 2d 6e 61 6d 65 29 0a 09 09 09 09 20 item-name).....
06e0: 20 20 20 20 70 6f 6c 6c 2d 69 74 65 6d 2d 6e 61 poll-item-na
06f0: 6d 65 29 29 0a 09 09 09 09 3b 3b 20 28 69 66 20 me)).....;; (if
0700: 28 70 6f 6c 6c 3a 70 6f 6c 6c 20 27 68 61 76 65 (poll:poll 'have
0710: 2d 64 65 73 63 72 69 70 74 69 6f 6e 3f 29 0a 09 -description?)..
0720: 09 09 09 3b 3b 20 20 20 20 20 28 73 3a 74 64 20 ...;; (s:td
0730: 27 62 67 63 6f 6c 6f 72 20 22 23 66 30 66 30 66 'bgcolor "#f0f0f
0740: 30 22 20 70 6f 6c 6c 2d 69 74 65 6d 2d 64 65 73 0" poll-item-des
0750: 63 72 69 70 74 69 6f 6e 29 20 3b 3b 20 64 65 73 cription) ;; des
0760: 63 72 69 70 74 69 6f 6e 0a 09 09 09 09 3b 3b 20 cription.....;;
0770: 20 20 20 20 27 28 29 29 0a 09 09 09 09 28 73 3a '()).....(s:
0780: 74 64 20 28 63 61 6e 64 69 64 61 74 65 3a 67 65 td (candidate:ge
0790: 74 2d 70 61 72 74 79 20 20 20 20 20 20 20 63 61 t-party ca
07a0: 6e 64 69 64 61 74 65 29 29 0a 09 09 09 09 28 73 ndidate)).....(s
07b0: 3a 74 64 20 28 63 61 6e 64 69 64 61 74 65 3a 67 :td (candidate:g
07c0: 65 74 2d 73 75 70 70 6f 72 74 73 2d 61 76 20 63 et-supports-av c
07d0: 61 6e 64 69 64 61 74 65 29 29 0a 09 09 09 09 3b andidate)).....;
07e0: 3b 20 28 69 66 20 28 6e 6f 74 20 28 73 3a 73 65 ; (if (not (s:se
07f0: 73 73 69 6f 6e 2d 76 61 72 2d 67 65 74 20 22 76 ssion-var-get "v
0800: 6f 74 65 64 22 29 29 20 3b 3b 20 68 65 72 65 20 oted")) ;; here
0810: 61 72 65 20 74 68 65 20 63 68 65 63 6b 20 62 75 are the check bu
0820: 74 74 6f 6e 73 20 66 6f 72 20 70 6c 75 72 61 6c ttons for plural
0830: 69 74 79 20 61 6e 64 20 61 70 70 72 6f 76 61 6c ity and approval
0840: 20 76 6f 74 69 6e 67 0a 09 09 09 09 3b 3b 20 20 voting.....;;
0850: 20 20 28 6c 69 73 74 20 0a 09 09 09 09 28 73 3a (list .....(s:
0860: 74 64 20 28 73 3a 63 65 6e 74 65 72 0a 09 09 09 td (s:center....
0870: 09 20 20 20 20 20 20 20 28 73 3a 69 6e 70 75 74 . (s:input
0880: 20 27 74 79 70 65 20 22 72 61 64 69 6f 22 20 20 'type "radio"
0890: 20 20 27 6e 61 6d 65 20 22 70 6c 75 72 61 6c 69 'name "plurali
08a0: 74 79 22 20 27 76 61 6c 75 65 20 70 6f 6c 6c 2d ty" 'value poll-
08b0: 69 74 65 6d 2d 69 64 29 29 29 0a 09 09 09 09 28 item-id))).....(
08c0: 73 3a 74 64 20 28 73 3a 63 65 6e 74 65 72 0a 09 s:td (s:center..
08d0: 09 09 09 20 20 20 20 20 20 20 28 73 3a 69 6e 70 ... (s:inp
08e0: 75 74 20 27 74 79 70 65 20 22 63 68 65 63 6b 62 ut 'type "checkb
08f0: 6f 78 22 20 27 6e 61 6d 65 20 22 61 70 70 72 6f ox" 'name "appro
0900: 76 61 6c 22 20 20 27 76 61 6c 75 65 20 70 6f 6c val" 'value pol
0910: 6c 2d 69 74 65 6d 2d 69 64 29 29 29 0a 09 09 09 l-item-id)))....
0920: 09 28 73 3a 69 66 2d 73 65 73 73 69 6f 6e 76 61 .(s:if-sessionva
0930: 72 20 22 76 6f 74 65 64 22 0a 09 09 09 09 09 09 r "voted".......
0940: 20 28 6c 69 73 74 0a 09 09 09 09 09 09 20 20 28 (list....... (
0950: 73 3a 74 64 20 28 63 6f 6e 63 20 70 6f 6c 6c 2d s:td (conc poll-
0960: 69 74 65 6d 2d 70 65 72 63 65 6e 74 2d 70 20 22 item-percent-p "
0970: 25 22 29 20 27 62 67 63 6f 6c 6f 72 20 28 69 66 %") 'bgcolor (if
0980: 20 28 65 71 3f 20 28 63 61 6e 64 69 64 61 74 65 (eq? (candidate
0990: 3a 67 65 74 2d 69 64 20 63 61 6e 64 69 64 61 74 :get-id candidat
09a0: 65 29 20 20 63 61 6e 64 69 64 61 74 65 73 3a 74 e) candidates:t
09b0: 6f 70 2d 70 6c 75 72 61 6c 69 74 79 2d 69 64 29 op-plurality-id)
09c0: 0a 09 09 09 09 09 09 09 09 09 09 09 09 20 20 20 .............
09d0: 20 22 63 79 61 6e 22 0a 09 09 09 09 09 09 09 09 "cyan".........
09e0: 09 09 09 09 20 20 20 20 22 6c 69 67 68 74 67 72 .... "lightgr
09f0: 65 79 22 29 0a 09 09 09 09 09 09 09 28 63 6f 6e ey")........(con
0a00: 63 20 22 28 22 20 28 63 61 6e 64 69 64 61 74 65 c "(" (candidate
0a10: 3a 67 65 74 2d 70 73 63 6f 72 65 20 63 61 6e 64 :get-pscore cand
0a20: 69 64 61 74 65 29 20 22 29 22 29 20 27 61 6c 69 idate) ")") 'ali
0a30: 67 6e 20 22 63 65 6e 74 65 72 22 29 0a 09 09 09 gn "center")....
0a40: 09 09 09 20 20 28 73 3a 74 64 20 28 63 6f 6e 63 ... (s:td (conc
0a50: 20 70 6f 6c 6c 2d 69 74 65 6d 2d 70 65 72 63 65 poll-item-perce
0a60: 6e 74 2d 61 20 22 25 22 29 20 20 27 62 67 63 6f nt-a "%") 'bgco
0a70: 6c 6f 72 20 28 69 66 20 28 65 71 3f 20 28 63 61 lor (if (eq? (ca
0a80: 6e 64 69 64 61 74 65 3a 67 65 74 2d 69 64 20 63 ndidate:get-id c
0a90: 61 6e 64 69 64 61 74 65 29 20 20 63 61 6e 64 69 andidate) candi
0aa0: 64 61 74 65 73 3a 74 6f 70 2d 61 70 70 72 6f 76 dates:top-approv
0ab0: 61 6c 2d 69 64 29 0a 09 09 09 09 09 09 09 09 09 al-id)..........
0ac0: 09 09 09 20 20 20 20 22 63 79 61 6e 22 0a 09 09 ... "cyan"...
0ad0: 09 09 09 09 09 09 09 09 09 09 20 20 20 20 22 6c .......... "l
0ae0: 69 67 68 74 67 72 65 79 22 29 0a 09 09 09 09 09 ightgrey")......
0af0: 09 09 28 63 6f 6e 63 20 22 28 22 20 28 63 61 6e ..(conc "(" (can
0b00: 64 69 64 61 74 65 3a 67 65 74 2d 73 63 6f 72 65 didate:get-score
0b10: 20 63 61 6e 64 69 64 61 74 65 29 20 22 29 22 29 candidate) ")")
0b20: 20 20 27 61 6c 69 67 6e 20 22 63 65 6e 74 65 72 'align "center
0b30: 22 29 29 29 29 29 29 29 20 3b 3b 20 25 20 76 6f "))))))) ;; % vo
0b40: 74 65 73 0a 09 09 09 20 20 63 61 6e 64 69 64 61 tes.... candida
0b50: 74 65 73 29 0a 09 09 20 20 20 20 20 28 73 3a 74 tes)... (s:t
0b60: 72 20 0a 09 09 20 20 20 20 20 20 28 73 3a 74 64 r ... (s:td
0b70: 20 22 57 72 69 74 65 20 69 6e 20 28 6e 61 6d 65 "Write in (name
0b80: 29 3a 3c 62 72 3e 22 0a 09 09 09 20 20 20 20 28 ):<br>".... (
0b90: 73 3a 69 6e 70 75 74 2d 70 72 65 73 65 72 76 65 s:input-preserve
0ba0: 20 27 74 79 70 65 20 22 74 65 78 74 22 20 27 6e 'type "text" 'n
0bb0: 61 6d 65 20 22 70 6f 6c 6c 5f 6e 61 6d 65 22 20 ame "poll_name"
0bc0: 20 27 73 69 7a 65 20 22 31 35 22 20 27 6d 61 78 'size "15" 'max
0bd0: 6c 65 6e 67 74 68 20 22 34 30 22 29 29 0a 09 09 length "40"))...
0be0: 20 20 20 20 20 20 28 73 3a 74 64 20 22 50 61 72 (s:td "Par
0bf0: 74 79 3a 3c 62 72 3e 22 20 28 73 3a 69 6e 70 75 ty:<br>" (s:inpu
0c00: 74 2d 70 72 65 73 65 72 76 65 20 27 74 79 70 65 t-preserve 'type
0c10: 20 22 74 65 78 74 22 20 27 6e 61 6d 65 20 22 70 "text" 'name "p
0c20: 6f 6c 6c 5f 70 61 72 74 79 22 20 27 73 69 7a 65 oll_party" 'size
0c30: 20 22 31 30 22 20 27 6d 61 78 6c 65 6e 67 74 68 "10" 'maxlength
0c40: 20 22 34 30 22 29 29 0a 09 09 20 20 20 20 20 20 "40"))...
0c50: 28 73 3a 74 64 20 22 53 75 70 70 6f 72 74 73 20 (s:td "Supports
0c60: 61 70 70 72 6f 76 61 6c 3a 3c 62 72 3e 22 20 28 approval:<br>" (
0c70: 73 3a 69 6e 70 75 74 2d 70 72 65 73 65 72 76 65 s:input-preserve
0c80: 20 27 74 79 70 65 20 22 74 65 78 74 22 20 27 6e 'type "text" 'n
0c90: 61 6d 65 20 22 70 6f 6c 6c 5f 73 75 70 70 6f 72 ame "poll_suppor
0ca0: 74 73 5f 61 76 22 20 20 27 73 69 7a 65 20 22 31 ts_av" 'size "1
0cb0: 30 22 20 27 6d 61 78 6c 65 6e 67 74 68 20 22 34 0" 'maxlength "4
0cc0: 30 22 29 29 0a 09 09 20 20 20 20 20 20 28 73 3a 0"))... (s:
0cd0: 74 64 20 22 55 72 6c 3a 3c 62 72 3e 22 20 20 20 td "Url:<br>"
0ce0: 28 73 3a 69 6e 70 75 74 2d 70 72 65 73 65 72 76 (s:input-preserv
0cf0: 65 20 27 74 79 70 65 20 22 74 65 78 74 22 20 27 e 'type "text" '
0d00: 6e 61 6d 65 20 22 70 6f 6c 6c 5f 75 72 6c 22 20 name "poll_url"
0d10: 20 20 27 73 69 7a 65 20 22 34 30 22 20 27 6d 61 'size "40" 'ma
0d20: 78 6c 65 6e 67 74 68 20 22 31 32 30 22 29 20 27 xlength "120") '
0d30: 63 6f 6c 73 70 61 6e 20 34 29 29 0a 09 09 20 20 colspan 4))...
0d40: 20 20 20 28 73 3a 74 72 0a 09 09 20 20 20 20 20 (s:tr...
0d50: 20 28 73 3a 74 64 20 27 63 6f 6c 73 70 61 6e 20 (s:td 'colspan
0d60: 37 0a 09 09 09 20 20 20 20 28 73 3a 63 65 6e 74 7.... (s:cent
0d70: 65 72 20 28 73 3a 69 6e 70 75 74 20 27 74 79 70 er (s:input 'typ
0d80: 65 20 22 73 75 62 6d 69 74 22 20 27 6e 61 6d 65 e "submit" 'name
0d90: 20 22 76 6f 74 65 22 20 27 76 61 6c 75 65 20 22 "vote" 'value "
0da0: 56 6f 74 65 22 29 20 0a 09 09 09 09 20 20 20 20 Vote") .....
0db0: 20 20 28 73 3a 69 66 2d 73 65 73 73 69 6f 6e 76 (s:if-sessionv
0dc0: 61 72 20 22 65 6d 61 69 6c 22 0a 09 09 09 09 09 ar "email"......
0dd0: 09 20 20 20 20 20 20 20 27 28 29 0a 09 09 09 09 . '().....
0de0: 09 09 20 20 20 20 20 20 20 28 6c 69 73 74 0a 09 .. (list..
0df0: 09 09 09 09 09 09 22 45 6d 61 69 6c 20 6f 72 20 ......"Email or
0e00: 6e 69 63 6b 6e 61 6d 65 3a 22 20 0a 09 09 09 09 nickname:" .....
0e10: 09 09 09 28 73 3a 69 6e 70 75 74 2d 70 72 65 73 ...(s:input-pres
0e20: 65 72 76 65 20 27 74 79 70 65 20 22 74 65 78 74 erve 'type "text
0e30: 22 20 27 6e 61 6d 65 20 22 75 73 65 72 73 5f 65 " 'name "users_e
0e40: 6d 61 69 6c 22 20 27 73 69 7a 65 20 32 30 20 27 mail" 'size 20 '
0e50: 6d 61 78 6c 65 6e 67 74 68 20 34 30 29 0a 09 09 maxlength 40)...
0e60: 09 09 09 09 09 22 28 72 65 71 75 69 72 65 64 29 ....."(required)
0e70: 2c 20 43 6f 75 6e 74 72 79 20 63 6f 64 65 3a 22 , Country code:"
0e80: 0a 09 09 09 09 09 09 09 28 73 3a 69 6e 70 75 74 ........(s:input
0e90: 2d 70 72 65 73 65 72 76 65 20 27 74 79 70 65 20 -preserve 'type
0ea0: 22 74 65 78 74 22 20 27 6e 61 6d 65 20 22 75 73 "text" 'name "us
0eb0: 65 72 73 5f 63 6f 75 6e 74 72 79 5f 63 6f 64 65 ers_country_code
0ec0: 22 20 27 73 69 7a 65 20 32 20 27 6d 61 78 6c 65 " 'size 2 'maxle
0ed0: 6e 67 74 68 20 32 29 0a 09 09 09 09 09 09 09 22 ngth 2)........"
0ee0: 28 6f 70 74 69 6f 6e 61 6c 29 22 0a 09 09 09 09 (optional)".....
0ef0: 09 09 09 29 29 0a 09 09 09 09 20 20 20 20 20 20 ...)).....
0f00: 20 29 29 29 29 29 29 29 29 ))))))))