Subversion Repositories wimsdev

max_votes=!defof MAX_VOTES in wimshome/public_html/bases/sys/define.conf
max_parms=!defof MAX_VOTES in wimshome/public_html/bases/sys/define.conf

!! NEED TO BE FIXED
!!wims_prefix=user class sharable sharing
!!wims_trustfile=primitives.phtml primitives/checkbox.phtml primitives/list.phtml primitives/list.phtml primitives/uservar.phtml
!!wims_readable=wims_read_parm noprint serial prim parmcnt
!!wims_writable=serial prim parms wims_read_parm

!if $wims_class=$empty or $wims_user=$empty
  error=not_class
  !exit
!endif
!if $seq!=
  !set wims_sequence=$seq
!endif
!read adm/lang/date.phtml.$moduclass_lang
limit_textarea=600

wims_nw=votedir Votedir userdef vote Vote job empty
wims_nr=wims_sesrandom
Votedir=classes/$wims_class/vote
votedir=wimshome/log/$Votedir
!read adm/class/userdef classes,$wims_class,$wims_user
userfile=$userdef
!read adm/class/classlang names.phtml

!bound vote between integer 1 and $max_votes default 0


!default gstep=0

vote_class=!defof sharing_vote in wimshome/log/classes/$wims_class/neighbors
!default vote_class=$wims_class
!default wims_superclass=$wims_class
!if $wims_superclass != $wims_class
  Votevar=!replace internal $wims_superclass/ by $ in $vote_class
  Votevar=!translate internal / to _ in $Votevar
  Vote=$(Votevar)_$vote
!else
  Vote=$vote
  Votevar=
!endif

!if $rEg!=$empty
  job=reg
  rEg=
!endif
!if $abandon!=$empty
  !!!FIXME edit or home
  job=edit
  !set gstep=$[max($gstep-2,0)]
  abandon=
!endif

readjobs=home,read,help,vote,showresult
editjobs=creat,guided,edit,reg,erase,preview,csv,getsource
!if $wims_user=supervisor
  !bound job within $readjobs,$editjobs default home
!else
  !bound job within $readjobs default home
!endif
!if $job=help or robot isin $session
  !exit
!endif

!read tabletheme
!for i=1 to $max_votes
  m_parm$i=$(parm$i)
!next i

votecnt=!recordcnt $votedir/.votes
!if $votecnt<1 and $job notwordof reg creat csv
  job=home
  !changeto home.proc
!endif
!if $job=creat
  !reset gstep
  !if $votecnt>=$max_votes
    error=too_many_votes
    !exit
  !else
    vote=$[$votecnt+1]
    !increase votecnt
    job=edit
  !endif
!endif

!default vote_model=$reg_model
!if $vote>0 and $vote<=$votecnt
  vdata=!record $vote of $votedir/.votes
  !distribute lines $vdata into vote_status,vote_title,vote_option,vote_show,vote_whovoteshow,vote_model
  !default vote_option=anonymous
  !default vote_status=0
  !default vote_show=1
  !! !default vote_model=free
  vote_src=!record 0 of $votedir/$vote.src
  !readproc adm/vfilter/msgchange.proc read\
$vote_src
  vote_src=$out_script
!endif
!default reg_model=$vote_model
!! at some gstep these variables are not in the form but are required by reg.proc, so
!! we need to be sure to have found defaults
!default reg_status=$vote_status
!default reg_option=$vote_option
!default reg_show=$vote_show
!default reg_whovoteshow=$vote_whovoteshow
!if $vote<1
  job=home
!endif

!! don't allow to use model if vote is sharing or sharable (waiting sharin/sharable techvar)
test_share=!defof sharable_vote,sharing_vote in wimshome/log/classes/$wims_class/neighbors
test_share=!nonempty item $test_share
!if $test_share=$empty
  !set vmodellist=accessvar,group
  !set name_vmodellist=$(name_accessvar), $(name_group)
!else
  vmodellist=$empty
  name_vmodellist=$empty
!endif
!read $job.proc
s