Subversion Repositories wimsdev

!! process file to show result of vote

!if $vote_status=$empty or ($wims_user!=supervisor and $vote_status notwordof 1 2 )
  error=bad_vote
  job=home
  !changeto home.proc
!endif

!if anonymous!=$vote_option
  listjob2=global,list,listbystudent
  !if supervisor=$wims_user
    listjob2=$listjob2,studentbyitem
  !endif
!else
  job2=global
!endif

!bound job2 within $listjob2 default global

wims_multiexec=pari maxima yacas
insmath_rawmath=yes
wims_backslash_insmath=yes
parmcnt=0
!reset uvname, uvval, uvcnt
!readdef $userfile
!readdef $votedir/$vote.votes
!default vcnt=0

!if $wims_user!=supervisor and $(user_vote_$Vote)=$empty
  error=no_vote
  job=read
  !changeto read.proc
!endif

!if $wims_user!=supervisor and $vote_show=0
  job=home
  !changeto home.proc
!endif
!if $vote>0
  !if $choices1=$empty
    !readproc primitives/getlimit.proc parms
  !endif
  !if $choices1!=$empty
    noprint=yes
  !endif
  vote_description=$empty
  !read $votedir/$vote.def
!endif
max_rep=0
!for k=1 to $parmcnt
  t=!itemcnt $(vote_description[$k;])
  max_rep=$[max($max_rep,$t-2)]
!next k

!if $vote_option=anonymous
  !exit
!endif
!if $vote_option=trace
  listkey=!values v for v=1 to $vcnt
  namelist=!makelist <th>$name_votants v</th> for v=1 to $vcnt
!else
  listkey=$empty
  namelist=$empty
!endif

!for k=1 to $parmcnt
  !if textarea!=$(vote_description[$k;2])
    donvote_$k=!makelist -- for v=1 to $vcnt
    nbch=!itemcnt $(vote_description[$k;])
    !for l=3 to $nbch
      !for m in $(votes_$(k)_$[$(l)-2])
        !if $m notitemof $listkey
          listkey=!append item $m to $listkey
          !if $vote_option=nominative
            tmp=!replace internal / by , in $m
            tmp=!defof user_firstname\
user_lastname in wimshome/log/classes/$wims_superclass/.users/$(tmp[-1])
            tmp=!lines2words $tmp
            namelist=!append item <th>$tmp</th> to $namelist
          !endif
        !endif
        mkey=!positionof item $m in $listkey
        newval=!item $mkey of $(donvote_$k)
        !if $newval!=--
          newval=$newval ; $(vote_description[$k;$l])
        !else
          newval=$(vote_description[$k;$l])
        !endif
        donvote_$k=!replace item number $mkey by $newval in $(donvote_$k)
      !next m
    !next l
  !endif
!next k