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