Subversion Repositories wimsdev

Rev

Rev 5235 | Rev 5340 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5235 Rev 5297
Line 17... Line 17...
17 
 :edit
 17 
 :edit
18 
 job=edit
 18 
 job=edit
19 
 !changeto edit.proc
 19 
 !changeto edit.proc
20 
!endif
 20 
!endif
21 
reg_src=!trim $reg_src
 21 
reg_src=!trim $reg_src
- 
 
 22 
!! FIXME: for models I need to bypass this error. Anyway there is
- 
 
 23 
!!        no real syntax check, so is it really useful?
- 
 
 24 
!!
22 
!if $reg_src=$empty and $vote>$votecnt
 25 
!! !if $reg_src=$empty and $vote>$votecnt
23 
   error=no_content
 26 
!!    error=no_content
24 
   reg_status=0
 27 
!!    reg_status=0
25 
 !goto edit
 28 
!!  !goto edit
26 
!endif
 29 
!! !endif
27 
 
 30 
 
28 
!for i=1 to $votecnt
 31 
!for i=1 to $votecnt
29 
 v_$i=!record $i of $votedir/.votes
 32 
 v_$i=!record $i of $votedir/.votes
30 
!next i
 33 
!next i
31 
 
 34 
 
Line 40... Line 43...
40 
 
 43 
 
41 
!for i=1 to $[max($votecnt,$vote)]
 44 
!for i=1 to $[max($votecnt,$vote)]
42 
 !appendfile $votedir/.votes :$(v_$i)
 45 
 !appendfile $votedir/.votes :$(v_$i)
43 
!next i
 46 
!next i
44 
 
 47 
 
45 
 
 - 
 
46 
!if $reg_src!=$empty and ($vote_status=0 or $numsess>0)
 48 
!if $reg_src!=$empty and ($vote_status=0 or $mod_numsess>0)
47 
 !writefile $votedir/$vote.src $reg_src
 49 
 !writefile $votedir/$vote.src $reg_src
48 
 msg2wims_primitives=def define comment draw if for uservar\
 50 
 msg2wims_primitives=def define comment draw if for uservar\
49 
	menu list radio mmenu mlist checkbox textarea
 51 
	menu list radio mmenu mlist checkbox textarea
50 
 !sh cd $wims_home; bin/msg2wims log/$Votedir/$vote.src log/$Votedir/$vote.def
 52 
 !sh cd $wims_home; bin/msg2wims log/$Votedir/$vote.src log/$Votedir/$vote.def
51 
!endif
 53 
!endif