Rev 5340 | Rev 10736 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5340 | Rev 5369 | ||
---|---|---|---|
Line 11... | Line 11... | ||
11 | reg_title=!singlespace $reg_title |
11 | reg_title=!singlespace $reg_title |
12 | !bound reg_show within 0,1 default 1 |
12 | !bound reg_show within 0,1 default 1 |
13 | !bound reg_whovoteshow within 0,1 default 0 |
13 | !bound reg_whovoteshow within 0,1 default 0 |
14 | !if $reg_title=$empty |
14 | !if $reg_title=$empty |
15 | reg_status=0 |
15 | reg_status=0 |
- | 16 | gstep=$[max(0,$[$gstep-1])] |
|
16 | error=no_title |
17 | error=no_title |
17 | :edit |
18 | :edit |
18 | job=edit |
19 | job=edit |
19 | !changeto edit.proc |
20 | !changeto edit.proc |
20 | !endif |
21 | !endif |
21 | reg_src=!trim $reg_src |
22 | reg_src=!trim $reg_src |
Line 29... | Line 30... | ||
29 | !! !endif |
30 | !! !endif |
30 | 31 | ||
31 | !for i=1 to $votecnt |
32 | !for i=1 to $votecnt |
32 | v_$i=!record $i of $votedir/.votes |
33 | v_$i=!record $i of $votedir/.votes |
33 | !next i |
34 | !next i |
- | 35 | !if $reg_model isitemof $vmodellist |
|
- | 36 | reg_option=nominative |
|
34 | 37 | !endif |
|
35 | v_$vote=$reg_status\ |
38 | v_$vote=$reg_status\ |
36 | $reg_title\ |
39 | $reg_title\ |
37 | $reg_option\ |
40 | $reg_option\ |
38 | $reg_show\ |
41 | $reg_show\ |
39 | $reg_whovoteshow\ |
42 | $reg_whovoteshow\ |
Line 43... | Line 46... | ||
43 | !writefile $votedir/.votes |
46 | !writefile $votedir/.votes |
44 | 47 | ||
45 | !for i=1 to $[max($votecnt,$vote)] |
48 | !for i=1 to $[max($votecnt,$vote)] |
46 | !appendfile $votedir/.votes :$(v_$i) |
49 | !appendfile $votedir/.votes :$(v_$i) |
47 | !next i |
50 | !next i |
48 | 51 | ||
49 | !if $reg_src!=$empty and ($vote_status=0 or $mod_numsess>0) |
52 | !if $reg_src!=$empty and ($vote_status=0 or $mod_numsess>0) |
50 | !writefile $votedir/$vote.src $reg_src |
53 | !writefile $votedir/$vote.src $reg_src |
51 | msg2wims_primitives=def define comment draw if for uservar\ |
54 | msg2wims_primitives=def define comment draw if for uservar\ |
52 | menu list radio mmenu mlist checkbox textarea |
55 | menu list radio mmenu mlist checkbox textarea |
53 | !sh cd $wims_home; bin/msg2wims log/$Votedir/$vote.src log/$Votedir/$vote.def |
56 | !sh cd $wims_home; bin/msg2wims log/$Votedir/$vote.src log/$Votedir/$vote.def |
54 | !endif |
57 | !endif |
55 | 58 | ||
56 | !if $reg_src=$empty and $vote_status=0 |
59 | !if $reg_src=$empty and $vote_status=0 |
57 | !goto edit |
60 | !goto edit |
- | 61 | !endif |
|
- | 62 | ||
- | 63 | !if $vote_model!=free |
|
- | 64 | !goto edit |
|
- | 65 | !endif |
|
- | 66 | !! when all is done, need to reset gstep. Not sure this is the best way |
|
- | 67 | ||
- | 68 | !if $gstep=3 |
|
- | 69 | !reset gstep |
|
58 | !endif |
70 | !endif |
59 | job=read |
71 | job=read |
60 | !read var.proc |
72 | !read var.proc |
61 | 73 |