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

!!wims_prefix=user class

!!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

!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

!set vmodellist=accessvar,group

!set name_vmodellist=$(name_accessvar), $(name_group)

!read $job.proc