Subversion Repositories wimsdev

vcnt=!defof vcnt in wimshome/log/classes/$wims_class/vote/$vote.votes

!default vote_status=0

!if $vote_status=0 or $vcnt=0 or $vcnt=$empty or $reg_src$vote_src=$empty

 !bound reg_status between integer 0 and 3 default 0

 !bound reg_option within anonymous,nominative,trace default anonymous

!else

 !bound reg_status between integer 1 and 3 default 1

 reg_option=$vote_option

!endif

reg_title=!trim $reg_title

reg_title=!singlespace $reg_title

!bound reg_show within 0,1 default 1

!bound reg_whovoteshow within 0,1 default 0

!if $reg_title=$empty

  reg_status=0

 error=no_title

 :edit

 job=edit

 !changeto edit.proc

!endif

reg_src=!trim $reg_src

!! FIXME: for models I need to bypass this error. Anyway there is

!!        no real syntax check, so is it really useful?

!!

!! !if $reg_src=$empty and $vote>$votecnt

!!    error=no_content

!!    reg_status=0

!!  !goto edit

!! !endif

!for i=1 to $votecnt

 v_$i=!record $i of $votedir/.votes

!next i

v_$vote=$reg_status\

$reg_title\

$reg_option\

$reg_show\

$reg_whovoteshow\

$reg_model

!sh mkdir -p $wims_home/log/$Votedir

!writefile $votedir/.votes

!for i=1 to $[max($votecnt,$vote)]

 !appendfile $votedir/.votes :$(v_$i)

!next i

!if $reg_src!=$empty and ($vote_status=0 or $mod_numsess>0)

 !writefile $votedir/$vote.src $reg_src

 msg2wims_primitives=def define comment draw if for uservar\

	menu list radio mmenu mlist checkbox textarea

 !sh cd $wims_home; bin/msg2wims log/$Votedir/$vote.src log/$Votedir/$vote.def

!endif

!if $reg_src=$empty and $vote_status=0

  !goto edit

!endif

job=read

!read var.proc