Subversion Repositories wimsdev

!if $vote_status=$empty or \

	($wims_user!=supervisor and $vote_status notwordof 1 2)

  error=bad_vote

  job=home

  !changeto home.proc

!endif

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 or $vote_show>0

  !if $wims_user=supervisor

    showres=2

  !else

    showres=1

  !endif

  !!## user_vote_$Vote is created if the user has voted - the value can be yes

  !!##or a list of numbers according of the vote_option

  !!## should we be more precise ?

  whovote_login=!sh cd $wims_home/log/classes/$wims_superclass/.users;\

  grep -r "!set user_vote_$Vote=" * | cut -d":" -f1;

  whovote_login=!lines2items $whovote_login

  whovote=$empty

  whodontvote=$empty

  nb=!recordcnt wimshome/log/classes/$wims_class/.userlist

  !for k=1 to $nb

    tmp=!record $k of wimshome/log/classes/$wims_class/.userlist

    !distribute item $tmp into fn,ln,ll

    !if $ll isitemof $whovote_login

      whovote=!append item $fn $ln to $whovote

    !else

      whodontvote=!append item $fn $ln to $whodontvote

    !endif

  !next k

!else

  showres=0

!endif