Subversion Repositories wimsdev

Rev

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