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
  gstep=$[max(0,$[$gstep-1])]
  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
!if $reg_model isitemof $vmodellist
  reg_option=nominative
!endif
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)
  !! convert username/code for technical variable
  !readproc adm/vfilter/msgchange.proc write\
$reg_src
  !writefile $votedir/$vote.src $out_script
  !! -----------
  msg2wims_primitives=def define comment draw if for uservar\
    menu list radio mmenu mlist checkbox textarea inputfield
  !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

!if $vote_model!=free
  !goto edit
!endif
!! when all is done, need to reset gstep. Not sure this is the best way

!if $gstep=3
  !reset gstep
!endif
job=read
!read var.proc