Subversion Repositories wimsdev

!! use to replace space if necessary
!set joker=___

!if $vote_status!=1
  error=bad_vote
  job=home
  !changeto home.proc
!endif

!readdef $userfile
!if $(user_vote_$Vote)=$empty and $(user_vote_$vote)!=$empty
  user_vote_$Vote=$(user_vote_$vote)
!endif

# pour un questionnaire tracé ou anonyme on interdit de
# modifier son vote.

!if $vote_option!=nominative and $(user_vote_$Vote)!=$empty
  error=already_voted
  !exit
!endif

!readdef $votedir/$vote.votes

!readdef $votedir/$vote.comments
vote_description=$empty
noprint=yes
!reset parmcnt
!readproc $votedir/$vote.def
voteset=
!if $(user_vote_$Vote)=$empty
  !advance vcnt
  voteset=vcnt=$vcnt
!endif

# on récupère le nombre de votes déjà exprimés
nbvotes=$vcnt
!!__ is to keep trace of single space
!for t=1 to $parmcnt
  !if ($(vote_description[$t;2])=textarea and $vote_option!=nominative) \
      or $(vote_description[$t;2]) iswordof inputfield
    tt =!singlespace $(parm$t)
    tt =!singlespace $tt
    tt=!trim $tt
    !if $(vote_description[$t;2]) iswordof inputfield
      tt=!replace internal $ $ by $joker in $tt
      tt=!replace internal , by . in $tt
    !endif
    tt = !char 1 to $limit_textarea of $tt
    !appendfile $votedir/$(vote)_$t.comments :$tt
  !else
    !for k=0 to $(choices$t)
      vc_$k=$(vcnt_$(t)_$k)
    !next k
    tmp=!values v for v=1 to $(choices$t)
    parm$t=!nospace $(parm$t)
    parm$t=!listintersect $(parm$t) and $tmp
    !for k in $(parm$t)
      !default vc_$k=0
      !advance vc_$k
    !next k
    old=!item $t of $(user_vote_$Vote)
    old=!words2items $old
    !for v in $old
      vc_$v=$[max(0,$(vc_$v)-1)]
    !next v
    !for k=0 to $(choices$t)
      !default vc_$k=0
      !if $(vc_$k) != $(vcnt_$(t)_$k)
        voteset=!append line vcnt_$(t)_$k=$(vc_$k) to $voteset
      !endif
    !next k
  !endif
!next t

# paramcnt: nombre de questions

!if $vote_option=anonymous
  user_vote_$Vote=yes
!else
  # nouvelle option pour le tracage des reponses.
  # on ne garde pas le nom du votant mais on lui donne un numéro qui
  # est égal au nombre de votes exprimés.
  #
  # comme on est dans le ELSE du anonymous, on n'a plus que 2 choix possibles:
  #   nominatif ou tracage
  # d'où le IF/ELSE simple
  # si un autre cas devait être intégré il faudrait faire un test un peu plus poussé

  # la partie du fichier obtenu est de la forme vote
  option=$empty

  !if $vote_option iswordof nominative
    option=$wims_class/$wims_user
  !else
    option=$nbvotes
  !endif

  tt=$empty
  !for t=1 to $parmcnt
    !if $(vote_description[$t;2]) notwordof textarea inputfield
      !if $vote_option=nominative
        !! erase old vote. allowed only with vote_option=nominative
        old=!item $t of $(user_vote_$Vote)
        old=!words2items $old
        !for v in $old
          vv=!replace item $option by $ in $(votes_$(t)_$v)
          vv=!nonempty items $vv
          voteset=!append line votes_$(t)_$v=$vv to $voteset
          votes_$(t)_$v=$vv
        !next v
      !endif
      tmp=!items2words $(parm$t)
      tt=!append item $tmp to $tt
      !for v in $(parm$t)
        vv=!append item $option to $(votes_$(t)_$(v))
        voteset=!append line votes_$(t)_$v=$vv to $voteset
      !next v
    !else
      tt=!append item 0 to $tt
    !endif
  !next t
  !if $vote_option=trace
    user_vote_$Vote=yes
  !else
    user_vote_$Vote=$tt
  !endif
!endif

!setdef !set user_vote_$Vote=$(user_vote_$Vote) in $userfile
!if $voteset!=$empty
  !setdef $voteset in $votedir/$vote.votes
!endif

!! --------------------------
!! these lines are writing the variable user_techvar_ttt in the user file when
!!\uservar{ttt, ....}

ccc=!itemcnt $uvcnt
!if $ccc>0
  !readproc adm/vfilter/listvarfilter.proc
  !for i=1 to $ccc
    uvc=!item $i of $uvcnt
    uvn=!item $i of $uvname
    !! no registery if the technical variable is not already defined
    !if $uvn isitemof $tv_listlocalcode
      uvv=!line $i of $uvval
      uvv=!item $(parm$uvc)+1 of $uvv
      !! check if the value exists for this technical variable (only defined values can be save in user .def file)
      po=!positionof item $uvn in $tv_listcode
      don=!line $po of $tv_listtechvar
      !distribute item $don into name,classid,number
      don=!record $number of wimshome/log/classes/$wims_class/.techvar
      don=!line 2 of $don
      !if $uvv notitemof $don
        uvv=$empty
      !endif
      classid=!replace internal / by _ in $classid
      !setdef !set user_techvar_$(uvn)=$uvv in $userfile
    !endif
  !next i
!endif
!! -------------------------------------------

!restart module=adm/vote&job=read&vote=$vote